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ABSTRACT 


i 


The  computerized  Quick-Reacting  General'  War  Gaining. System  (QUICK)  will 
accept  input  data,  automatically  generate  global  strategic  nuclear  war 
plans,  simulate  the  planned  events,  and  provide  statistical  output 
summaries.  QUICK  has  been  programmed  .in  FORTRAN  for  use  on  the  NMCSSC 
CDC  3800  computer  system. 

The  QUICK  Programming  Specifications  Manual  (PSM)  consists  of  three 
volumes:  Volume  I,  Data  Input  Subsystem;  Volume  II,  Plan  Generation 
Subsystem;  Volume  III,  Simulation  and  Data  Output  Subsystems.  The 
Programming  Specifications  Manual  complements  the  other  QUICK  Computer 
System  Manuals  to  facilitate  maintenance  of  the  war  gaming  system.  This 
volume,  Volume  I,  provides  the  programmer/analyst  with  a  technical 
description  of  the  purpose,  functions,  general  procedures,  and  programm¬ 
ing  techniques  applicable  to  the  programs  of  the  Data  Input  Subsystem 
and  to  the  utility  programs/routines  which1  support  the  system.  This 
volume  is  in  three  parts ^  Part  A  provides  a  description  of  the 
programs/subroutines;  Parts  B  and  C  contain  the  associated  program 
listings,  Companion  documents  ?re: 

1 

1.  GENERAL  DESCRIPTION 

Computer  System  Manual  CSM  GD  9A-67 

A  nontechnical  description  for  senior  management  personnel 

>  !  ! 

2.  ANALYTICAL  MANUAL 

Computer  System  Manual  CSM  AM  9A-67  (three  volumes) 

Provides  a  description  of  the  system  methodology  for  the  non¬ 
programmer  analysts  ,  ,  \ 

3.  USER'S  MANUAL  1 

Computer  System  Manual  CSM  UM  9-67  (two  volumes) 

Provides  detailed  instructions  for  applications  of  the  system 

4.  OPERATOR'S  MANUAL 

Computer  System  Manual  CSM  OM  9A-67 

Provides  instructions  and  procedures  for  the  computer  operators 
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CHAPTER  1 
INTRODUCTION 


The  QUICK  system  consists  of  four  functional  subsystems:  the  Data  input, 
Plan  Generation,  Simulation,  and  Data  Output  subsystems.  In  addition, 

QUICK  employs  a  general-purpose  utility  package.  This  utility  package 
consists  of  programs,  subroutines,  and  functions  which  perform  a  variety 
of  support  tasks  common  to  two  or  more  system  programs. 

This  volume  of  the  Programming  Specifications  Manual  describes  the 
programs  which  make  up  the  QUICK  Data  Input  subsystem  and  provides 
a  description  of  the  programs,  subroutines,  and  functions  which 
comprise  the  QUICK  utility  package.  The  organization  of  this  volume 
is  described  below. 

Since  the  utility  programs  performed  are  common  to  all  of  the  programs  of 
the  Data  Input  subsystem,  these  programs  are  presented  first  in  Chapters  2- 
4.  Chapter  2  is  a  description  of  the  file  handling  system  (subroutine 
FILEHNR)  used  by  all  QUICK  programs  for  tape  and  disk  operations  to  speed 
read/write  operations.  Chapter  3  provides  a  description  of  the  purpose, 
functions,  and  operation  of  the  special-purpose  programs  listed  below. 

1.  OUTFILE  and  RELOADF.  These  programs  provide  a  restart  capability 
used  in  conjunction  with  the  Plan  Generation  subsystem.  They 
enable  the  user  to  interrupt  processing  in  the  middle  of  the  sub¬ 
system  and  either  repeat  or  resume  processing  at  a  later  time. 

2.  DECLARES .  This  program  is  used  to  assist  the  NMCSSC  analyst  in 
writing  and  maintaining  programs  which  process  QUICK  data  base 
tapes.  It  places  into  programs  the  proper  FORTRAN  COMMON, 
EQUIVALENCE,  and  TYPE  statements  required  for  the  data  base 
being  processed. 

3.  FILEDUMP.  This  program  provides  the  capability  to  print  specific 
portions  of  a  magnetic  tape,  written  in  binary  mode,  or  a  disk 
file. 

Chapter  4  describes  the  remaining  programs,  subroutines,  and  functions  of 
the  utility  package,  which  perform  a  variety  of  tasks  through  the  system. 

The  subsequent  chapters  provide  detailed  descriptions  of  the  programs  of 
the  Data  Input  subsystem.  A  description  of  the  data  flow  within  this  sub¬ 
system,  shown  in  figure  1,  and  the  programs  involved  are  summarized  below. 
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(PLANSET) 

Fig.  1.  Tne  Data  Input  Subsystem 
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1.  Program  QUIKBASE  performs  the  primary  function  of  creating  a 
game  base  file  which  defines  the  general  data  to  be  used  by 
succeeding  programs  of  the  Data  Input  subsystem.  This  program 
accepts  as  input  the  data  library  (in  tape  or  card  form)  and, 
based  on  user-input  parameters,  modifies  the  file  to  create  a 
game  base  file  (QUIKDB) ,  As  an  optional  feature,  this  program 
provides  the  facilities  to  print  the  game  base  file  (QUIKDB) 
in  a  format  meaningful  to  the  user. 

2.  Program  BASF.MOD  was  developed  in  response  to  3  specific  NMCSSC 
support  task.  As  described  herein,  the  main  function  of  program 
BASEMOD  is  to  alter  the  content  or  characteristics  of  a  data 
base  in  order  to  adapt  it  to  the  specific  scenario  for  which  a 
plan  or  set  of  plans  is  being  developed.  As  indicated  in 
figure  1,  this  program  may  be  used  after  program  QUIKBASE  and 
after  program  INDEXER  to  introduce  user-desired  modifications 

in  the  game  file. 

3.  The  purpose  of  program  BASESUM  is  to  summarize  a  game  base  file 
and  to  print  these  summaries  in  tabular  form.  While  figure  1 
reflects  the  program  operating  after  program  BASEMOD,  the 
program  may  be  used  to  summarize  the  data  base  contained  on  the 
output  tapes  produced  by  programs  QUIKBASE,  BASEMOD,  or  INDEXER. 
This  program,  while  not  a  part  of  the  data  flow,  provides  a 
means  for  further  checking  the  .input  data  and  is  a  record  of  the 
information  contained  on  any  game  base  tape. 

4.  To  provide  for  efficient  data  handling  and  communications 
between  the  programs  of  the  QUICK  system,  it  is  necessary 
to  assign  index  numbers  to  various  kinds  of  data  in  the 
base.  Program  INDEXER  is  designed  to  perform  this  important 
task  and  is  also  responsible  for  forming  complex  targets  and 
collocation  islands.  While  the  program  is  capable  of  accepting 
a  game  base  as  created  by  program  QUIKBASE  (QUIKDB)  in  the 
NMCSjC  mode  of  operation,  the  modified  data  base  output  by 
BASEMOD  (QKMODDB)  serves  as  the  primary  input.  In  a  like 
manner,  the  output  game  base  (INDEXDB)  is  suitable  for  input 

to  the  Plan  Generation  and  Data  Output  subsystems.  However, 
in  the  NMCSSC  mode,  INDEXDB  may  be  input  to  program  BASEMOD 
for  additional  processing  and/or  modification.  An  additional 
output  of  INDEXER  is  the  SIMTAPE,  which  contains  selected 
weapon  and  target  data  and  is  subsequently  input  to  the  Simu¬ 
lation  subsystem. 
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Appendix  A  contains  a  description  of  the  common  blocks  associated  with 
all  utility  programs  except  OUTFILE  and  RELOADF.  For  the  filehandler 
(subroutine  FILEHNR),  only  those  common  blocks  used  by  the  calling 
programs  for  data  transfer  are  included  in  this  appendix.  Appendix  B 
contains  a  list  of  QUICK  attribute  names  and  their  descriptions. 

Appendix  C  contains  a  list  of  the  entry  points  within  the  utility 
programs.  Appendix  D  contains  a  list  of  the  programs/ subroutines  which 
call  the  general  utility  routines  described  in  chapter  4. 

Users  of  this  manual  are  encouraged  to  submit  comments  or  recommendations 
for  changes  to  improve  the  manual.  Comments  should  be  forwarded  to  the 
Commander,  National  Military  Command  System  Support  Center,  Defense  Com¬ 
munications  Agency,  Attn:  B220,  The  Pentagon,  Washington,  D.C.  20301. 
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CHAPTER  2 

QUICK  SYSTEM  FILE1IANDLER 


PURPOSE 


The  QUICK  system  filehandler  is  a  set  of  subroutines  which  provides  for 
data  transfer  from  core  memory  to  either  magnetic  tape  or  peripheral  disk 
storage  (CDC  814  disk  unit).  The  filehandler  provides  for  fully  buffered 
read/write  operations  with  a  maximum  of  10  files  active  at  any  one  time. 
The  filehandler  provides  input/output  (I/O)  error  checking  arid  correction 
service  to  the  calling  programs.  The  data  are  received  by  the  filehandler 
as  a  word  stream  consisting  of  blocks  of  words  of  varying  lengths.  The 
word  stream  is  blocked  to  a  convenient  record  size  and  output  to  the 
peripheral  device  as  a  number  of  physical  records.  A  data  dump  facility 
is  provided,  whereby  the  filehandler  will  print  the  data  as  the  data  are 
being  transferred.  In  addition,  a  list  of  files  on  the  disk  which  are 
required  for  the  restart  capability  (programs  OUTFILE  and  RELOADF,  dis¬ 
cussed  elsewhere  in  this  manual)  is  maintained  on  the  disk  by  the  file- 
handler, 


CONCEPT  OF  OPERATION 


The  I/O  capabilities  of  FORTRAN  are  the  most  complex  and  cumbersome 
feature  of  the  language.  The  programmer  must  provide  consistency  in 
record  lengths  and  data  lists,  as  well  as  insert  all  error  detection 
statements  for  each  data  transfer  operation.  In  addition,  I/O  is  very 
slow  compared  to  the  speed  of  the  arithmetic  operations.  The  QUICK 
system  filehandler  provides  a  simplified  I/O  capability  to  the  programmer. 

The  input  to  the  filehandler  for  writing  operations  consists  of  a  word 
stream.  This  stream  consists  of  any  number  of  blocks  of  words  contiguous' 
in  the  memory.  The  blocks  may  be  as  short  as  one  word  or  as  long  as 
32,767  words.  For  reading  operations,  the  output  is  the  same  word  stream. 
The  blocks  transferred  from  the  filehandler,  however,  do  not  have  to  have 
the  same  length  as  the  input  blocks.  The  word  stream  can  be  segmented 
by  the  programmer  in  any  desired  way. 

The  filehandler  provides  for  full  double  buffering  for  each  file.  The 
two  buffers  provide  for  temporary  storage.  At  any  one  time,  one  buffer 
is  being  used  for  data  transfer  to  or  from  core  memory;  the  other  buffer 
is  being  used  for  data  transfer  to  or  from  the  peripheral  device.  When 


the  core  memory  transfer  buffer  is  filled  (for  writing,  empty  for  reading), 
the  status  of  the  I/O  operation  on  the  peripheral  data  transfer  buffer 
is  checked.  If  there  are  no  errors,  the  roles  of  the  buffers  are  reversed. 
In  this  way,  the  I/O  operations  proceed  in  parallel  with  the  arithmetic 
operations,  which  improves  the  job  execution  efficiency. 

There  are  three  kinds  of  files  aval '  >  '  to  the  user  of  the  CDC  3800 
system  under  the  SCOPE  PFS  Operatin*,  stem.  These  types  are  magnetic 
tape,  permanent  disk  files,  and  scratch  disk  files.  Permanent  disk  files 
remain  intact  from  job  to  job.  Scratch  disk  files  are  destroyed  at  the 
end  of  each  job.  The  QUICK  system  uses  no  permanent  disk  files;  all 
QUICK  disk  files  are  of  the  scratch  type.  Within  that  type,  however, 
the  QUICK  system  discriminates  between  two  file  types;  active  and  scratch. 
The  active  files  are  required  by  more  than  one  program  in  the  system.  If 
job  termination  procedures  intervene  between  executions  of  two  programs 
which  require  a  specific  active  file,  the  restart  capability  (programs 
OUTFILE  and  RELOADF)  must  be  used  to  save  the  active  file  on  magnetic  tape 
and  restore  it  at  the  start  of  the  later  job.  Scratch  files  arc  those 
files  required  by  only  one  program  of  the  QUICK  system  for  temporary 
storage.  Therefore,  no  procedure  is  necessary  to  save  these  files  between 
jobs. 

NOTE:  In  all  QUICK  documentation,  the  term  scratch  file  refers  to  those 
files  which  are: 

1.  Used  by  only  one  QUICK  program  for  temporary  storage 

2.  Considered  by  the  SCOPE  PFS  Operating  System  to  be  scratch  files. 

Although  the  operating  system  considers  the  active  files  to  be  scratch 
files,  they  are  never  referred  to  in  that  manner  in  the  QUICK  documenta¬ 
tion. 

The  QUICK  system  uses  no  permanent  disk  files.  The  scratch  file  space 
on  the  disk,  however,  is  used  and  reused  by  the  programs  of  the  QUICK 
system. 

The  physical  format  of  any  filehandler  file  consists  of  a  label,  data 
records,  padding  records,  and  a  terminating  end-of-file.  The  filehandler 
label  is  a  32-word  physical  record  containing  tape  structure  information. 
Table  1  displays  the  contents  of  the  file  label.  The  label  is  the 
first  record  on  the  tape  following  the  operating  system  label.  On  mag¬ 
netic  tape  files,  the  label  is  followed  by  an  end-of-file  mark,  a  dummy 
BCD  record,  and  a  second  end-of-file  mark.  These  marks  and  the  record 
are  not  put  on  the  tape  by  the  filehandler.  The  operating  system  places 
them  there  after  the  tape  label  has  been  rewritten  after  the  tape  is 
written.  (This  rewrite  is  necessary,  since  the  label  contains  the  file 
length.)  On  disk  files,  no  end-of-file  marks  are  between  the  label  and 
the  data. 
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Tabic  1.  Filehandlcr  Label  Content 


WORD (Sj 
1 
2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15-27 

28-32 


DESCRIPTION 
File  logical  name 

LNxx5162  -  where  xx  is  buffer  number  used  on  write  operation 
Number  of  words  written  in  file 
Record  length  (96  words) 

Run  number  (currently  blank) 

Date  written  (mm/dd/yy) 

Number  of  words  requested  for  disk  file  (zero  for  tape  file) 
Security  classification  (currently  set  always  to  NOT  SET) 
Format  identifier  (programmer's  option) 

First  disk  sector  address  (zero  for  tape) 

Number  of  disk  tracks  allocated  (zero  for  tape) 

Number  of  tracks  used  (zero  for  tape) 

Time  of  run  (hhironss) 

Last  sector  address  used  (zero  for  tape) 

Reserved  for  future  nse 
User  comments 


The  data  records  are  96-word  physical  records  on  both  tape  and  disk. 

(The  sequential  disk  read/write  routines  of  the  operating  system  are  used 
for  disk  I/O.)  The  first  word  of  each  record  contains  a  record  number. 

The  first  record  is  numbered  one,  the  second  is  two,  and  so  on.  This 
numbering  is  used  in  the  error  checking  portions  of  the  filehandler  to 
detect  the  dropping  of  a  record  by  the  operating  system  and  to  correct 
for  that  error.  The  remaining  95  words  of  each  record  contain  the  data 
transferred  to  or  from  the  program.  This  is  the  word  stream.  (The 
buffers,  of  course,  are  each  96  wo?.'ds  long.)  The  last  record  in  the  file 
is  a  padding  record.  It  consists  of  96  words,  each  containing  the  word 
PADFILE  in  internal  BCD  code.  This  padding  file  is  required  by  the 
double  buffering  operation.  In  a  double  buffer  mode  of  input,  the  periph¬ 
eral  device  is  reading  the  record  following  the  record  currently  being 
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transferred  to  core.  Thus,  the  last  data  record  must  bo  followed  by  a 
padding  record  to  prevent  an  end-of-file  error  when  the  file  is  read. 

On  disk  files,  bad  sectors  on  the  disk  may  prevent  the  correct  output 
of  a  record.  In  order  to  salvage  the  file,  an  error  record  is  written 
over  the  bad  sector  (each  sector  is  32  words  long) .  This  record  contains 
96  words  of  the  word  NODATA  in  BCD  code.  When  the  file  is  read,  all 
errors  which  occur  in  reading  a  NODATA  record  are  ignored. 

NOTE:  All  filehandler  files  are  written  in  binary  (odd)  parity. 

Both  tape  and  disk  files  are  terminated  with  an  end-of-file  mark. 

Figure  2  displays  the  physical  format  of  the  files. 

The  filehandler  maintains  a  directory  file  on  the  disk.  This  file  is 
required  by  the  restart  programs,  OUTFILE  and  RELOADF.  It  has  a  logical 
file  name  of  DIRC5162.  Its  format  is  one  64-word  record.  The  64-word 
record  consists  of  common  block  /DRC5162/.  This  file  contains  the  number 
of  active  files,  their  logical  file  names,  their  lengths,  the  number  of 
scratch  files,  and  the  length  of  a  scratch  file  (one  million  words). 

This  directory  governs  the  files  spilled  by  OUTFILE  to  the  spill  tapes. 
The  number  of  scratch  files  is  saved,  so  that  later  programs  can  reuse 
space  allocated  to  scratch  storage  in  a  previous  program. 


FUNCTIONAL  DESCRIPTION 


Initialization  and  Directory  Maintenance 

The  first  program  in  any  job  which  uses  the  filehandler  should  call 
subroutine  ALOCDIR.  This  routine  allocates  disk  space  to  the  file 
directory  and  initializes  that  directory.*  Every  program  which  uses  the 
filehandler  must  call  subroutine  INITAPE  prior  to  a  call  on  any  other 
filehandler  subroutine  (except  ALOCDIR).*  INITAPE  initializes  the 
filehandler  variables  and  reads  the  file  directory.  (If  INITAPE  is  called 
before  ALOCDIR,  the  filehandler  corrects  the  error  by  calling  ALOCDIR  on 
its  own.)  Subroutine  ALOCDIR  has  no  input  necessary  for  its  functioning. 
INITAPE  requires  two  inputs,  MY1DENT  (in  block  /MYIDENT/)  and  NOPRINT 
(in  block  /NOPRINT/).  MYIDENT  is  the  program  name  which  will  be  printed 
on  the  console  typewriter  and  the  standard  output.  NOPRINT  is  a  print 
switch.  If  it  has  the  value  one,  all  file  initiations  will  print  a 
message  on  the  typewriter  and  standard  output.  A  different  value  of 


*Note  that  ALOCDIR  should  be  called  only  once  each  job.  INITAPE 
should  be  called  once  each  program. 
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Direction 

of 

Motion 


Fig.  2. 


80  Characters 
BCD 


32  Words 
Binary 


W/SSS////S///A 


XZZZZZZZZZZZZZL. 


[♦'Tape  load  point 
|  Operating  system  label 

|  Filehandler  label 
**-End-of-file  mark 


24  Characters  M  f  Written  by 

BCD  f Dummy  BCD  reC0rd  /  °Perating 

'  l  System 


96  Words 
Binary 


96  Words 
Binary 


-End -of- file  mark 


First  data  record 


Second  data  record 


96  Words 
Binary 


96  Words 
Binary 


rzzzzzzzzzzzj 


■Ar 


Last  data  record 


Padding  record 


“End-of-file  mark 


Physical  File  Format 

Part  1  of  2:  Magnetic  Tape  File 
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96  Words 
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96  Words 
Binary 


96  Words 
Binary 
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First  data  record 


Second  data  record 
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Last  data  record 


Padding  record 
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(cont . ) 

Part  2  of  2:  Disk  File 


NOPRINT  will  suppress  these  messages.  Therefore,  the  standard  calling 
sequence*  for  INITAPE  is: 

MYIDONT  a  8UMYPROGRM 
NOPRINT  =  1 
CALL  INITAPE. 

The  value  of  NOPRINT  can  be  changed  during  a  run  to  request  or  delete 
the  messages. 

Active  files  are  automatically  entered  in  the  directory  by  subroutine 
SETWRITE.  They  are  removed  by  subroutine  DEACTIV.  This  routine  removes 
the  file  whose  name  is  contained  m  MYIDONT.  Thus,  the  standard  calling 
sequence  for  DEACTIV  is: 

MY I DENT  =  8HMYFILE 
CALL  DEACTIV. 


Output  Data  Transfer 

Four  subroutines  are  used  for  output  data  transfer:  SETWRITE,  WRWORD, 
WRARRAY,  and  TERMTAP.  Subroutine  SETWRITE  prepares  a  file  for  writing. 
Buffers  are  allocated  and  pointers  initialized  by  this  routine.  If  an 
active  disk  file  is  to  be  created,  the  file  name  is  entered  in  the  file 
directory,  Three  variables  are  input  to  SETWRITE  to  determine  the  mode 
of  the  file.  The  throe  variables  are  MYIDENT  (block  /MYIDENT/),  ITP 
(block  /ITP/),  and  MYLNGTH  (block  /MYLABEL/) .  The  use  of  these  variables 
is  as  follows: 

1,  Tape  files 

ITP  -  Is  the  buffer  number  and  the  logical  tape  unit 

number.  It  must  lie  between  1  and  10  (inclusive). 

MYIDENT  -  Fi.lehandler  label  name. 

MYLNGTH  -  Not  used. 

2.  Active  disk  files 

ITP  -  Must  be  negative.  Absolute  value  is  buffer  number. 
It  must  lie  between  -10  and  -1  (inclusive) . 

MYIDENT  -  Logical  file  name;  cannot  be  SCRATCH.  If  left 

blank,  a  default  value  of  UNAMEDxx  is  used,  where 
xx  is  an  arbitrary  number  assigned  by  the  file- 
handler. 

MYLNGTH  -  Number  of  words  to  be  allocated  to  the  file.  If 

the  file  length  exceeds  this,  the  operating  system 
will  abort  the  job. 


* MY I DENT  and  NOPRINT  cannot  be  set  by  data  statements.  They  must  be 
set  at  execution  time. 
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3.  Scratch  disk  files 

ITP  -  May  be  positive  or  negative.  Absolute  value  is 
buffer  number.  Absolute  value  must  lie  between 
1  and  10. 

MY I DENT  -  Must  be  SCRATCH.  On  the  disk,  the  logical  file 

name  will  be  SCRTCHxx,  where  xx  is  a  number  assigned 
by  the  filehandler. 

MYLNGTH  -  Ignored.  Length  is  one  million  words. 

Once  a  file  has  been  initialized  by  a  call  to  SETWRITE,  further  references 
to  the  file  can  be  made  through  the  use  of  ITP  alone.  Since  each  buffer 
can  be  used  by  only  one  file,  the  buffer  number  is  a  unique  file  identifier. 
Note  that  for  tape  files,  every  subsequent  initialization  of  the  file 
must  use  the  same  value  for  ITP,  since  this  is  used  as  the  logical  unit 
number.  Similarly,  for  active  disk  files,  subsequent  initializations  of 
the  file  must  use  the  same  value  for  MY I DENT,  the  logical  file  name. 

Scratch  disk  files  must  use  the  same  ITP  on  subsequent  initializations. 

The  standard  SETWRITE  calling  sequence  is: 

ITP  -  N3UFF 
MY  I  DENT  s  NAME 

MYLNGTH  «  LONG  }  Active  disk  files  only 
CALL  SETWRITE 

Note  that  SETWRITE  transfers  all  the  data  from  common  /MYLABEL/  to  the 
file  label.  If  the  program  fills  this  block  prior  to  the  call  on 
SETWRITE,  a  call  on  SETREAD  will  retrieve  this  information  and  pass  it 
to  common  /FILAEEL/. 

If  one  word  is  to  be  transferred  from  core  to  the  file,  subroutine 
WRWORD  is  used.  This  routine  transfers  he  value  of  the  variable  ITWORD 
(equivalenced  to  TWORQ)  in  common  /TWORu/  to  the  output  buffer.  The 
standard  WRWORD  calling  sequence  is: 

ITP  =  NBUFF 
ITWORD  =  I OUT 
CALL  WRWORD 

If  more  than  one  word  is  to  be  transferred,  subroutine  WRARRAY  should  be 
used.  This  routine  transfers  a  contiguous  block  of  words  from  core  to 
the  output  buffer.  This  routine  has  two  formal  parameters.  The  first 
is  the  first  word  to  be  transferred;  the  second  is  the  number  of  words 
to  be  transferred.  The  standard  WRARRAY  calling  sequence  is: 

ITP  -  NBUFF 

CALL  WRARRAY  (ORIGIN,  LENGTH) 

A  write  file  is  terminated  by  a  call  on  subroutine  TERMYAP.  This  routine 
clears  the  buffers,  adds  the  padding  record,  rewrites  the  label,  and 


resets  the  buffer  pointers.  The  standard  calling  sequence  is: 

I TP  =  NBUFF 
CALL  TERMTAP 


Input  Data  Transfer 

There  are  four  routines  used  for  input  data  transfer,  SETREAD,  R DWORD , 
RDARRAY,  and  TERMTAP. 

A  file  is  initialized  for  reading  by  a  call  on  subroutine  SETREAD.  This 
subroutine  allocates  the  buffers  and  initiates  reading  from  the  file  into 
the  buffers.  Two  variables  are  input  to  SETREAD:  ITP  (block  /ITP/)  and 
MY I DENT  (block  /MYIDENT/).  The  value  of  these  variables  determines  the 
type  of  file  which  is  initialized  by  SETREAD. 

1.  Tape  files 

ITP  ••  Must  be  positive  and  in  the  range  1  to  10  (inclusive). 

This  is  the  logical  unit  number  and  buffer  number. 
MYIDENT  -  Filehandler  label  name. 

2.  Active  disk  files 

ITP  -  Must  be  negative.  Absolute  value  is  buffer  number. 
Range  is  -10  to  -1. 

MYIDENT  -  Logical  file  name.  Cannot  be  SCRATCH  nor  can  the 
first  six  characters  be  SCRTCH. 

3.  Scratch  disk  files 

ITP  -  May  be  positive  or  negative.  Absolute  value  is 
buffer  number.  Absolute  value  range  is  1  to  10. 
MYIDENT  -  Must  be  SCRATCH  or  the  first  six  characters  must  be 
SCRTCH. 

For  scratch  files,  SETREAD  reads  the  scratch  file  created  using  the  same 
buffer  number  requested  in  ITP.  Common  /FILABEL/  is  filled  from  the 
filehandler  label.  SETREAD  reads  the  first  buffer  of  data  and  initiates 
the  reading  of  the  second  buffer  before  returning  control.  The  standard 
SETREAD  calling  sequence  is: 

ITP  =  NBUFF 
MYIDENT  =  NAME 
CALL  SETREAD 

After  the  file  is  initialized,  it  may  be  referred  to  with  only  the  buffer 
number.  Since  only  one  file  can  be  attached  to  a  single  buffer,  the 
buffer  number  ITP  is  a  unique  file  identifier  after  file  initialization. 
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To  read  one  word,  subroutine  RDWORD  is  used.  The  next  word  in  the  stream 
(buffer)  is  transferred  to  variable  ITWORD  in  common  /TWORD/.  (ITWORD 
is  usually  equivalenced  to  TWORD  for  variable  type  compatability.)  Th$ 
standard  RDWORD  calling  sequence  is:  , 

ITP  *  NBUFF 

CALL  RDWORD  !  1 

IN  »  ITWORD 

i 

If  more  than  one  word  is  to  be  transferred,  subroutine  RDARRAY  should  be 
used.  This  routine  transfers  a  block  of  words  from  the  buffer (s)  to  a 
contiguous  storage  area.  There  are  two  formal  parameters  for  subroutine 
RDARRAY,  The-  first  is  the  first  word  of  core  into  which  the  data  are  to 
be  transferred;  the  second  parameter  is  the  block  length.  The  standard 
RDARRAY  calling  sequence  is:  ! 

ITP  =  NBUFF 

CALL  RDARRAY  (DESTIN,  LENGTH) 

A  read  file  is  terminated  by  a  call  on  subroutine  TERMTAP.  For  this 
type  of  file  (read),  TERMTAP  rewinds  the  file  if  on  tape  or  positions 
the  sector  pointer  to  the  first  sector  (sector  0) . 


Dump  Facility 

The  program  can  request  a  print  of  the  data  being  transferred  through  the 
filehandler.  The  array  IFTPRNT  in  common  /IFTPRNT/  is  used  for  this 
purpose.  There  is  one  position  in  the  array  for  each  buffer.'  TV,c  .value 
of  IFTPRNT  is  used  as  follows:  if  zero  or  negative,  no  print  is  produced; 
if  positive,  data  are  printed.  On  calls  to  RDWORD  or  WRWORD,  only  the 
one  word  transferred  is  printed.  On  calls  to  RDARRAY  or  WRARRAY,  the 
value  of  IFTPRNT  (ITP)  is  interpreted  as  the  number  of  words  from  each 
end  of  the  block  transferred  to  be  printed.'  For  example,  if  IFTPRNT(3)=20 
and  the  sequence  of  code  is  as  follows:  1 

ITP  =  3 

CALL  RDARRAY  (ARRAY,  100) 

the  values  of  ARRAY(l)  through1 ARRAY(20)  and  ARRAY(81)  through  ARRAY(IOO) 
will  be  printed. 


Error  Detection  and  Recovery 

The  filehandler  performs  two  types  of  error  detection  and  recovery.  It 
checks  for  program  errors  in  filehandler  use,  such  as  attempting  to  read 
from  a  write  file.  The  recovery  procedures  in  these  cases  are  either 
warning  messages,  simple  corrective  actions  (such  as  calling  TERMTAP 
and  SETREAD  in  the  above  case),  or  abort  with  a  memory  dump.  The  other 
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error  checks  are  concerned  with  data  transmission  errors.  End-of-file, 
end-of-tape,  or  parity  errors  are  all  detected,  and  some  recovery  is 
attempted.  After  an  error  has  occurred,  the  filehandler  will  first  repeat 
the  operation  several  (five)  times  to  determine  if  the  error  was  of  a 
transient  nature.  If  the  error  persists,  various  recovery  procedures  are 
performed  as  described  below. 

1 .  Tape  Output  Error 

Subroutine  BRAZE  is  called  to  erase  six  inches  of  tape  and  skip 
over  the  bad  spot. 

2.  Tape  Input  Error 

The  tape  is  skipped  forward  to  the  first  record  following  the 
troubled  record.  If  this  new  record  has  the  correct  number, 
recovery  is  successful.  If  the  record  number  is  wrong,  there 
is  no  way  to  recover,  and  the  job  aborts.  Note  that  a  tape 
produced  with  output  errors  as  corrected  by  the  filehandler  can 
be  read  back  by  the  filehandler. 

3.  Disk  Output  Error 

A  variable  LOCNOW  in  block  /FILE/  contains  the  sector  address 
of  the  first  sector  of  the  troubled  record.  The  file  is 
"backspaced"  by  positioning  the  file  at  that  point.  A  dummy 
record  containing  96  words  of  the  word  NODATA  is  written  over 
the  troubled  sectors.  The  data  record  is  then  written  starting 
with  the  next  group  of  three  sectors. 

4.  Disk  Input  Error 

if  the  troubled  record  contains  the  NODATA  value,  the  file  is 
skipped  forward  to  the  next  data  record.  If  this  recoid  has 
the  correct  record  number,  recovery  is  successful.  Otherwise, 
the  job  aborts.  In  addition,  if  the  original  error  did  not 
occur  in  a  NODATA  record,  the  job  aborts. 


COMMON  BLOCKS 


Table  2  lists  the  filehandler  common  blocks.  All  subroutines  of  the 
filehandler  use  all  these  blocks  for  their  operation.  The  following 
blocks  are  also  used  by  the  calling  programs  for  data  transfer: 


ITP  , 

MY  I DENT  j 
NOPRINT  ( 

TWORD  \  All  programs 

MY LABEL  ( 

FILABEL  } 

IFTPRNT  ' 

TODAY  (Program  PLANSET) 

DRCS162  (Programs  OUTFILE,  RELOADF,  ALOC) 

INTFILE  (Program  ALOC). 

The  following  blocks  are  used  internally  by  the  filehandler: 
FILE 

22642626 
FILELAB 
FORFLS 
LOCVAR . 
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Table  2.  Fiiehandler  Common  Blocks 
(Sheet  1  of  4 ) 


VARIABLE  OR 


BLOCK 

ARRAY* 

DESCRIPTION 

DRCB162 

LENLIST 

Length  of  file  directory 

NOWACTV 

Number  of  active  disk  files 

LFNAME (30) 

Logical  file  names  of  active  files 

NUMFWDS(30) 

Number  of  words  written  on  each  active 
file 

NINTRNL 

Number  of  scratch  disk  files  allocated 
to  disk 

LINTRNL 

Length  (words)  of  scratch  disk  files 

I NT KILE 

INTIDNT 

First  six  characters  of  scratch  file 
name  (=SCRTCH) 

LINTFL 

Length  (words)  of  scratch  disk  files 

NOWALOC 

Number  of  scratch  files  used  by  current 
program 

MYITP(IO) 

Buffer  number  used  for  each  scratch 
file  written  in  current  program 

FILE 

ACTIVE (10) 

Logical  array;  TRUE  if  buffer  in  use 

READST (10) 

Logical  array;  TRUE  if  file  is  in  read 
status 

IAUX(IO) 

First  word  in  auxiliary  buffer  for  each 
file  (this  is  device  transfer  buffer) 

I BEG (10) 

First  word  in  core  transfer  buffer 
for  each  file 

TDISKFL(IO) 

Negative  for  disk  files 

IEND(IO) 

Last  word  available  in  data  transfer 
buffer 

IPT(IO) 

Pointer  to  next  word  to  be  transferred 

NAME (10) 

Logical  file  name 

NUMRECW(IO) 

Number  of  words  written  on  file 

*Parentheti 
are  single 

cal  values  indicate 
word  variables. 

array  dimensions .  All  other  elements 
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Table  2.  (cont.) 

(Sheet  2  of  4) 

VARIABLE  OR 


BLOCK 

ARRAY 

DESCRIPTION 

FILE 
(cont. ) 

NEWT (10) 

Pointer  to  last  good  buffer  transferred 
to/ from  file 

LOCNOW(IO) 

Sector  address  after  last  good  disk 
read/write 

22642626* 

IBUFF(1920) 

Filehandler  buffers 

FILE LAB 

LNDIR 

Length  of  file  label 

NDIROUT (32) 

File  label  (see  table  ) 

NDUMMY (33) 

Label  temporary  storage 

FORFLS 

1 BADGE 

=  5162 

LNGREC 

Physical  record  length  (=96) 

LUN 

=  LN 

MODE 

Data  parity  (=1) 

NPAUL 

=DIRC  (for  file  directory  name) 

NSECPRT 

Number  of  sectors  per  track  on  CDC  814 
disk  (=32) 

NSECTOR 

Number  of  words  per  sector  on  CDC  814 
disk  (=32) 

ITP 

ITP 

Filehandler  buffer  number 

MY I DENT 

MY  I DENT 

File  name 

TWORD 

ITWORD 

Single  word  transfer  medium 

*This  number 

is  the  word  BUFF  in 

internal  BCD  code.  The  block  is  a 

numbered  common  block  to  take  advantage  of  the  loader  overlap  feature 
of  the  SCOPE  PFS  loader. 
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Table  2.  (cont.) 

(Sheet  5  of  4) 


VARIABLE  OR 


SLOCK 

ARRAY 

DESCRIPTION 

FI  LABI: L 

INI DENT 

Incoming  name  (word  1  of  label) 

INRUNNO' 

Incoming  run  number  (word  5  of  label) 

INDAT1-: 

Incoming  date  (word  6  of  label) 

INFORM 

Incoming  format  (word  9  of  label) 

INSF.CR 

Incoming  security  (word  8  of  label) 

INTIMb 

Incoming  time  (word  IS  of  label) 

INLNGTII 

Incoming  length  (word  3  of  label) 

INCOMM(5) 

Incoming  comments  (words  28-32  of  label) 

IFTPRNT 

IFTPRNT (10) 

Debug  print  switches 

MY  LABI:  L 

MYFORM 

Outgoing  format  (word  9  of  label) 

MYSI1CR 

Outgoing  security  (word  8  of  label) 

MYLNGTII 

Number  of  words  requested  for  file 
(word  7  of  label) 

MYCOMM(5) 

Outgoing  user  comments  (words  28-32 
of  label) 

NOPRINT 

NOPRINT 

File  initiation  print  switch 

TODAY 

NOtVRUNO 

Current  run  number  (word  5  of  label) 

NOWDATH 

Current  date  (word  6  of  label) 

NOWTIMI: 

Current  time  (word  13  of  label) 

LOCVAR 

I  POINT 

Pointer  to  next  word  transferred 

MESS  (8) 

Abort/warning  message 

MFAKli 

Used  for  blank  file  names  (1INAMHD) 

NDIR 

Directory  length 

NIX 

Error  code 

NT 

Logical  unit  number  for  disk 
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Table  2,  (cont.) 

(Sheet  4  of  4) 


VARIABLE  OR 

BLOCK  ARRAY  DESCRIPTION 


LOCVAR  NTR 

(contO  NVERS 

NWAIT 
NWRDSAL 
NTEMP 
MTEMP 
INITFST 
KREC(IO) 
NULL(96) 
NODATA 
NTIMES 


Number  of  tracks  allocated  to  disk  file 
Blank 

Disk  I/O  completion  code 

Number  of  words  allocated  to  disk  file 

Entry  point  name 

TAPE  or  DISK:  file  type  identifier 
INITAPE  call  check  variable 
Record  counter  for  each  file 
Storage  for  NODATA  record 
=NODATA 

Error  correction  attempt  counter 


SUBROUTINE  FILEHNR 


PURPOSE : 


ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 

SUBROUTINES  CALLED: 

CALLED  BY: 


This  FORTRAN  subprogram  contains  entry  points 
ALOCDIR,  INITAPE ,  DEACTIV,  PRNTLAB,  SETWRITE, 
RDWORD,  and  WRWORD.  The  purposes  of  these  entries 
are  as  follows: 

ALOCDIR  allocates  the  disk  file  directory  to 

the  disk  and  initializes  that  directory 

INITAPE  initializes  the  filehandler  variables 

DEACTIV  removes  disk  logical  file  names  from 
the  active  list  in  the  file  directory 

PRNTLAB  prints  file  labels 

SETWRITE  initializes  a  file  for  writing;  the 
file  is  activated  and  the  buffers  are 
allocated 

RDWORD  transfers  one  word  from  the  buffer  to 
common  /TWORD/ 

WRWORD  transfers  one  word  from  common  /TWORD/ 
to  the  buffer 

FILEHNR  (not  used),  ALOCDIR,  INITAPE  (INITAP) , 
DEACTIV,  PRNTLAB,  SETWRITE  (SETWRIT) ,  RDWORD, 
WRWORD 

None 

DRCS162 ,  INTFILE,  FILE,  22642626,  FILELAB,  FORFLS, 
ITP,  MYIDENT,  TWORD,  FI  LABEL,  IFTPRNT,  MYLABEL, 
NOPRINT,  TODAY,  LOCVAR 

GETDATE,  TIMEDAY,  ERAZE,  RDARRAY ,  WRARRAY,  ABORT, 
WARNING,  Disk  I/O  subroutines  of  SCOPE  PFS 
Operating  System  (ALLOCATE,  LOCATE,  SEEK,  LSTATUS, 
DREAD,  DV.'RITE) 

All  programs  of  the  QUICK  system 
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Method: 


Entry  ALOCDIR:  This  entry  uses  operating  system  routine  ALLOCATE  to 
allocate  disk  storage  for  the  active  disk  file  directory.  The  directory 
is  initialized  to  show  no  active  files  other  than  itself.  ALOCDIR  should 
be  called  only  once,  at  the  beginning  of  each  job.  The  directory  name 
is  DIRC5162.  If  the  directory  cannot  be  written  without  errors,  the  job 
will  abort. 

Entry  INITAPE:  This  entry  initializes  filehandler  variables.  It  should 
be  called  once  per  program,  at  the  beginning  of  execution.  INITAPE  clears 
the  buffers  and  retrieves  the  current  date  (subroutine  GETDATE)  and  time 
(subroutine  TIMEDAY) .  The  variable  MYIDENT  is  assumed  to  be  the  name  of 
the  calling  program.  INITAPE  prints  a  program  initiation  message  on  the 
console  typewriter  and  also  on  the  standard  output,  if  requested.  If 
ALOCDIR  has  not  yet  been  called  in  the  job  when  INITAPE  is  called,  INITAPE 
transfers  control  to  ALOCDIR  before  exiting.  Otherwise,  the  file  directory 
is  read  into  common  block  /DRC5162/, 

Entry  DEACTIV:  This  entry  removes'  a  file  name  from  the  list  of  active 
disk  files.  The  name  to  be  removed  is  placed  in  variable  MYIDENT  (block 
/MYIDENT/)  by  the  calling  program.  The  file  directory  DIRC5162  cannot 
be  deactivated  by  DEACTIV.  Since  scratch  files  are  not  entered  in  the 
directory,  any  attempt  to  deactivate  a  scratch  file  is  ignored.  If  DEACTIV 
cannot  find  the  requested  file  in  the  active  list,  the  routine  returns 
control  to  the  calling  program  without  further  processing.  If  the  file 
is  found  in  the  list,  the  name  and  length  are  removed  from  the  list  ana 
the  list  compressed. 

Entry  PRNTLAB:  This  entry  prints  file  labels.  The  input  is  the  buffer 
number  ITP  and  the  file  name  MYIDENT  of  the  file  whose  label  is  to  be 
printed.  Since  PRNTLAB  must  move  the  file  to  retrieve  the  label,  a  call 
on  PRNTLAB  while  the  file  is  being  read  or  written  (i.e.,  active)  will 
be  considered  an  error.  Since  PRNTLAB  is  a  convenience  utility  routine, 
all  errors,  including  I/O  errors,  in  its  processing  terminate  PRNTLAB 
processing  and  return  to  the  calling  program  after  printing  a  warning 
message.  The  format  of  the  file  label  print  is  described  in  the  User's 
Manual.  The  print  is  also  produced  •  ..  every  call  to  SETREAD  if  the 
program  requests  it. 

Entry  SETWRITE:  This  entry  initializes  a  file  using  buffer  ITP  and  name 
MYIDENT.  (The  Functional  Description  section  of  this  chapter  describes 
the  interpretation  of  these  variables.)  SETWRITE  allocates  two  buffers, 
each  96  words  ifi  length,  to  the  file.  For  all  scratch  files,  SETWRITE 
generates  a  logical  file  name.  The  scratch  files  are  named  SCRTCHyy, 
where  yy  is  a  number  assigned  by  SETWRITE.  The  first  scratch  file  is 
SCRTCH  1;  the  second  SCRTCH  2;  and  so  on.  If  the  program  calls  SETWRITE 
with  a  blank  file  name,  SETWRITE  assigns  a  name  UNAMEDzz,  where  zz  is  a 
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number  assigned  in  the  same  fashion  as  yy  for  scratch  files.  Various 
procedural  error  checks  are  performed  to  see  that  the  file  should  be 
written  on.  For  example,  a  call  to  SETWRITE  on  a  file  currently  in  read 
status  will  abort  the  job.  For  disk  files,  variable  MYLNGTH  in  /MYLABEL/ 
is  used  to  determine  the  number  of  tracks  on  the  disk  to  allocate  for 
the  file.  MYLNGTH  is  the  maximum  number  of  words  expected  on  the  file. 

If  it  is  less  than  one  or  greater  than  one  million,  it  is  set  to  one 
million  (977  tracks).  Scratch  files  are  always  given  lengths  of  one 
million  words,  since  the  number  of  words  on  the  file  changes  with  each 
use. 


SETWRITE  also  fills  the  filehandler  label  from  block  /'MYLABEL/  and 
internal  filehandler  variables.  The  label  is  then  written  on  the  file. 

For  tape  files,  subroutine  ERAZE  is  then  called  three  times  on  the  file. 
This  routine  erases  six  inches  of  tape.  (An  cnd-of-file  mark  is  approxi¬ 
mately  six  inches  long.)  This  18-inch  blank  stretch  of  tape  is  required 
by  the  operating  system.  When  TERMTAP  is  called  on  this  file,  the  label 
will  be  rewritten  so  as  to  contain  the  number  of  words  written  on  the 
tape.  The  tape  will  then  be  rewound.  If  a  program  writes  on  a  tape  and 
then  rewinds  the  tape,  the  operating  system  places  on  the  tape,  following 
the  last  write,  an  end-of-file  mark,  a  dummy  BCD  record,  and  a  second 
end-of-file  mark.  The  dummy  record  is  24  characters  long,  of  which  the 
first  seven  are  EOSQUAT  and  the  remaining  17  are  undetermined.  The 
erasure  of  18  inches  of  tape  between  '.he  label  and  the  first  data  record 
allows  space  for  placement  of  these  marks  written  by  the  operating  system. 

Entry  RDWORD:  This  entry  transfers  the  next  word  in  the  buffer  for  file 
I TP  to  the  variable  comprising  common  block  /TWORD/.  ITP  is  the  buffer 
number  for  the  file.  Entry  RDWORD  uses  subroutine  RDARRAY  to  read  the 
word.  This  procedure  is  used  so  that  the  error  correction  procedures 
coded  in  subroutine  RDARRAY  do  not  have  to  be  repeated  in  RDWORD.  Note 
that  if  the  data  debug  dump  facility  of  the  filehandler  is  activated 
(i.e.,  IFTPRNT(1TP)>0) ,  then  it  is  deactivated  before  RDARRAY  is  called. 
The  dump  facility  produces  different  print  formats  for  calls  on  RDWORD/ 
WRWORD  and  RDARRAY./ WRARRAY .  Thus,  if  RDWORD  calls  RDARRAY,  the  facility 
must  be  off  during  the  data  transfer.  When  control  returns  to  RDWORD,  the 
value  of  IFTPRNT  is  restored.  If  the  original  value  is  greater  than  zero, 
then  the  RDWORD  format  for  the  debug  print  is  produced. 

Entry  IVRWORD:  This  routine  is  very  similar  to  RDWORD.  A  call  on  WRWORD 
transfers  the  data  in  common  block  /TWORD/  (one  word)  to  the  next  location 
in  the  buffer  for  file  ITP.  Subroutine  WRARRAY  is  used  for  the  transfer 
in  the  same  fashion  as  RDARRAY  is  used  by  RDWORD.  The  use  of  the  file- 
handler  dump  facility  in  WRWORD  is  identical  to  that  in  RDWORD. 


The  flow  of  operations  in  FILEHNR  is  shown  in  figure  3  The  flowchart 

ssss:  initape?  ™h\rFK  ■ 

o“ioHl"D"°RD  "hU,!  part  VI'  lllu*«««  ‘he' error  processing  ** 
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3.  (cont.) 
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Fi2  •  3.  (cont.) 
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Fig.  3.  (cont.) 

Part  VII:  (cont.) 

(Sheet  2  of  2) 
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SUBROUTINE  RDARRAY 


PURPOSE : 

This  FORTRAN  subprogram  contains  entry  points 

RDARRAY  and  WRARRAY.  Their  purpose  is  to  transfer 
blocks  of  data  between  core  $  corage  and  the  file 
buffers  and  also  between  the  file  buffers  and  the 
peripheral  I/O  devices.  Entry  RDARRAY  is  used 
for  transfers  from  the  files  to  core  storage.  Entry 
WRARRAY  is  used  for  transfers  from  core  storage 
to  the  files. 

ENTRY  POINTS: 

RDARRAY,  WRARRAY 

FORMAL  PARAMETERS: 

NAR  -  The  first  word  in  core  storage  to  be  used  in 
the  transfer 

NUM  -  The  number  of  contiguous  words  to  be  trans¬ 
ferred 

COMMON  BLOCKS: 

DRC5162,  INTFILE,  FILE,  22642626,  FILELAB,  FORFLS, 
ITP,  MYIDENT,  TWORD,  FILABEL,  IFTPRNT,  MY LABEL, 
NOPRINT,  TODAY,  LOCVAR 

SUBROUTINES  CABLED: 

ABORT,  WARNING,  LOCF,  ERAZE,  SF.TREAD,  SCOPE  PFS 

Disk  I/O  subroutines  (SEEK,  LOCATE,  LSTATUS , 

DREAD,  DWRITE) ,  SCOPE  PFS  Tape  I/O  subroutine, 
LENGTHF 

CALLED  BY: 

All  programs  of  the  QUICK  system 

Method 


The  formal  parameters  specify  the  block  of  core  storage  to  be  used  in 
the  transfer.  The  parameter  NAR  is  the  first  word  of  the  block.  This 
parameter  is  given  a  length  of  one  in  a  DIMENSION  statement.  This  pro¬ 
cedure  allows  the  subroutine  to  treat  the  storage  block  as  an  array  of 
any  length.  The  parameter  NUM  is  the  number  of  words  to  be  transferred, 

Figure  4  shows  the  processing  operation  performed  by  subroutine 
RDARRA.Y(WRARRAY) .  The  flowchart  is  presented  in  five  parts.  Parts  I 
and  II  show  the  initial  operations  for  entries  RDARRAY  and  WRARRAY, 
respectively.  Part  III  shows  exit  processing  procedures  and  is  common 
to  both  entries.  Error  processing  operations  are  shown  in  Part  IV  for 
entry  RDARRAY  and  in  Part  V  for  WRARRAY. 
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Entry  RDARRAY:  This  entry  is  used  to  read  data  from  a  file  into  core 
storage.  After  checking  to  determine  if  the  file  is  active  and  in  read 
status,  RDARRAY  determines  if  enough  words  remain  in  the  current  buffer 
to  fulfill  the  request  for  NUM  words  (statement  605).  If  so,  the  first 
NUM  elements  of  the  destination  array  NAR  are  filled  with  the  next  NUM 
words  in  the  buffer  (statement  610).  The  buffer  pointers  are  updated 
and  control  passes  to  the  data  dump  section  (statement  630).  If  part 
or  all  of  another  buffer  is  needed  to  fill  the  request,  the  routine  empties 
the  current  buffer  into  the  destination  array  NAR  (statement  640) .  The 
other  buffer  was  being  filled  by  a  read  operation  initiated  by  a  BUFFER  IN 
operation  in  either  SETREAD  or  RDARRAY.  RDARRAY  checks  the  status  of 
this  operation  (statement  607).  If  there  were  errors,  control  passes 
to  the  error  correction  section  (statements  199,  99).  If  the  read  operation 
was  completed  successfully,  a  new  read  operation  is  initiated  to  fill  the 
buffer  just  emptied.  The  buffer  pointers  are  then  modi f i ed  to  reverse 
the  buffer  roles.  Control  then  returns  to  statement  605  to  determine  if 
the  remainder  of  the  requested  block  of  data  can  be  filled  from  the 
current  buffer.  This  process  continues  until  all  words  have  been  trans¬ 
ferred.  For  disk  files,  "dummy"  records  may  be  encountered  amidst  the 
data  records.  These  dummy  records  contain  the  word  N0DATA  in  all  96 
words  of  the  record,  These  records  are  written  to  space  the  disk  file 
over  sectors  in  which  the  I/O  subroutines  are  encountering  errors. 

RDARRAY  Ignores  dummy  records.  When  one  is  encountex'ed ,  the  next  record 
is  read  and  so  on  until  the  next  data  record  is  encountered. 

In  RDARRAY,  two  entries  to  the  error  processing  section  are  used, 
statements  99  and  199.  Statement  199  merely  increments  the  error  code 
NIX  by  one  before  transferring  control  to  statement  99.  This  procedure 
allows  the  error  routine  to  differentiate  between  parity  errors  and 
unexpected  end-of-file  marks.  The  end-of-file  error  codes  are  one 
greater  than  the  parity  error  codes.  The  error  correction  procedures 
for  entry  RDARRAY  begin  at  statement  805.  For  unexpected  end-of-file 
marks,  the  job  aborts  (statement  842).  For  parity  errors,  the  processing 
of  tape  and  disk  differs.  For  tape  errors,  operating  system  function 
LENGTHF  is  called  (statement  870)  to  determine  the  length  of  the  record 
with  bad  parity.  If  the  length  is  correct  (i.e.,  96  words),  there  can 
be  no  recovery,  and  the  job  aborts.  If  the  record  is  short,  it  may  be 
an  error  record  written  previously.  In  this  case,  the  next  data  record 
is  read.  If  it  has  the  correct  record  number,  recovery  is  successful. 
Otherwise,  the  job  aborts  via  a  transfer  to  statement  99  with  NIX=7 
(from  a  statement  following  statement  624),  For  disk  errors,  five  attempts 
are  made  to  reread  the  data.  If  these  attempts  fail,  the  job  aborts. 

Entry  WRARRAY:  The  processing  in  this  entry  closely  parallels  the 
operation  ot  RDARRAY.  In  this  case,  however,  NAR  is  the  origin  array, 

Words  are  transferred  from  NAR  to  the  buffer  and  from  the  other  buffer 
to  the  file.  Statement  146  parallels  the  operation  of  statement  605  in 
RDARRAY  in  determining  the  number  of  words  to  be  transferred  from  the 
current  buffer.  If  the  current  request  for  NUM  words  will  not  fill  the 
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buffer,  statement  710  performs  the  complete  transfer.  Otherwise,  statement 
740  transfers  full  buffer  loads  from  core  to  the  buffers,  until  the 
number  of  words  remaining  to  be  transferred  is  less  than  the  full  buffer 
size.  There  is  one  major  difference  between  the  logical  flow  of  RDARRAY 
and  WRARRAY.  Subroutine  SETREAD  assigns  both  buffers  since  they  will 
both  be  used  immediately.  Subroutine  SETWRITE,  however,  allocates  only 
one  buffer,  the  first  to  be  filled.  Therefore,  the  checking  of  the  status 
of  I/C  operations  starts  only  after  the  first  write  by  subroutine  WRARRAY. 

In  addition,  no  distinction  is  made  between  write  parity  and  write  end 
of  "reel"  errors  in  WRARRAY.  There  is  no  end  of  "reel"  error  for  disk 
fil  es,  and  end-of-reel  errors  for  tape  are  irrecoverable.  Therefore, 

WRARRAY  uses  only  statement  99  as  entry  to  the  error  processing  section. 

The  error  correction  processing  for  WRARRAY  begins  at  statement  804.  For 
tape  write  parity  errors,  the  tape  is  backspaced  over  the  problem  area. 
Subroutine  ERAZE  is  called  to  erase  over  the  bad  spot.  The  record  is 
then  rewritten.  If  this  procedure  fails  after  five  attempts  (and  30  inches 
of  tape),  the  job  aborts.  For  disk  files  a  similar  procedure  is  followed. 

The  file  cannot  be  "backspaced"  in  the  usual  sense.  Therefore,  a  pointer 
array  LOCNOW  is  saved  in  common  /FILE/.  For  each  file  on  disk,  LOCNOW(ITP) 
contains  the  sector  address  of  the  sector  following  the  last  good  I/O 
operation.  (Operating  system  routine  LOCATE  is  used  to  determine  this 
information.)  When  an  error  occurs,  operating  system  routine  SEEK  is 
used  to  reposition  the  disk  file  to  this  sector.  This  is  the  disk  equiv¬ 
alent  to  backspacing.  Then  the  dummy  NODATA  record  is  written.  If  this 
write  operation  encounters  errors  (NIX«5) ,  it  is  repeated  five  times. 

After  five  attempts  or  a  successful  write,  the  data  record  is  written 
starting  with  the  next  sector  available  after  the  NODATA  record. 

Data  Dump  Processing:  Both  RDARRAY  and  WRARRAY  share  the  data  dump  code 
starting  at  statement  630.  The  complex  DO  loop  between  statements  3 
and  11  is  required  by  the  format  of  the  data  dump.  The  value  of  IFTPRNT(ITP) 
is  interpreted  as  the  number  of  words  to  be  printed  from  each  end  of  the 
array  NAR.  The  print  is  therefore  divided  into  halves.  The  word  counters 
for  the  halves  are  checked  in  this  loop  to  determine  when  to  print  the 
data.  Utility  subroutine  LQCF  is  used  to  retrieve  the  address  of  NAR 
which  is  printed  in  the  dump  heading. 
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SUBROUTINE  SETREAD 


PURPOSE : 

This  routine  initializes  a  file  for  reading.  It 
allocates  two  input  buffers  to  the  file  according 
to  the  buffer  number  ITP.  The  input  label  is 
processed,  and  the  first  two  buffer  loads  of  data 
are  input. 

ENTRY  POINTS: 

SETREAD 

FORMAL  PARAMETERS: 

None 

COMMON  BLOCKS: 

DRC5162,  INTFILB,  FILE,  22642626,  FILE  LAB,  FORFLS , 
ITP,  MYIDENT,  TWORD,  FILABEL,  IFTPRNT,  MYLABEL, 
NOPRINT,  TODAY,  LOCVAR 

SUBROUTINES  CALLED: 

ABORT,  WARNING,  TERMTAP,  SCOPE  PFS  Operating 
System  routines  (SEEK,  LOCATE,  LSTATUS,  DREAD, 
LENGTHF) 

CALLED  BY: 

All  programs  of  the  QUICK  system 

Method 

SETREAD  receives  as  input  from  the  calling  program  the  buffer  number  ITP 
in  block  /ITP/,  and  the  logical  file  name  MYIDENT  in  block  /MYIDENT/. 

The  interpretation  of  these  variables  is  discussed  in  the  Functional 
Description  section  of  this  chapter. 

Figure  5  shows  the  processing  operations  performed  by  subroutine 
SETREAD.  The  flowchart  is  presented  in  three  parts:  Part  I,  Status 
Checking  and  Label  Input;  Part  II,  Pointer  Setup  and  Buffer  Filling; 
and  Part  III,  Error  Processing. 

SETREAD  begins  by  checking  to  determine  if  a  scratch  file  is  requested. 
If  so,  control  passes  to  statement  480  where  the  name  of  the  file  is 
determined.  The  file  name  will  be  the  name  used  in  writing  the  scratch 
file,  using  the  same  buffer  number.  For  example,  if  file  SCRTCH  1  was 
written  with  ITP=7,  then  a  call  to  SETREAD  with  ITP=7,  MYIDENT=SCRATCH 
will  set  the  logical  file  name  to  be  read  as  SCRTCH  1. 

,  In  any  event,  SETREAD  checks  the  buffer  number  to  be  sure  it  is  in  the 
right  range.  If  the  file  is  currently  being  used  by  the  filehandler 
for  I/O,  then  subroutine  TERMTAP  is  called  to  terminate  the  file.  Once 
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the  calling  procedure  errors  are  checked,  SF, TREAD  reads  the  file  label. 

Some  of  the  label  contents  are  transferred  to  block  /FI LABEL/  where  they 
can  be  accessed  by  the  calling  program. 

SETREAD  then  sets  the  buffer  pointers  for  the  two  buffers  for  the  file. 

The  first  data  record  is  then  read.  Note  that  for  tape  files,  an  end  of 
file  will  be  read  before  the  first  data  record.  (As  was  discussed  in 
the  Concept  of  Operation  section  and  the  discussion  of  entry  SETWRITE, 
two  file  marks  and  a  dummy  record  are  inserted  by  the  operating  system 
after  the  label.)  This  error  is  error  code  4  (i.e.,  NIX=4).  The  error 
correction  procedure  for  subroutine  SETREAD  allows  this  error  to  occur 
seven  times  without  taking  any  action.  In  this  manner  the  operating  system 
insertions  on  the  tape  are  ignored,  and  the  first  data  record  can  be  read. 

When  the  first  data  record  has  been  read,  the  buffer  pointers  are  set  to 
start  emptying  this  buffer  when  RDARRAY  is  called.  The  filling  of  the 
other  buffer  is  then  initiated  before  control  returns  from  SETREAD. 

The  error  correction  procedures  of  SETREAD  involve  attempts  to  reread  the 
data.  For  tape  files,  five  reread  attempts  are  made  before  the  job  aborts 
in  trying  to  read  the  first  data  record.  For  disk  files,  SETREAD  must 
check  that  the  first  data  record  was  not  replaced  by  a  dummy  NDDAYA  record 
by  subroutine  WRARRAY.  In  any  event,  up  to  five  reread  attempts  are  made 
to  input  the  first  data  record.  Note  that  SETREAD  reads  and  checks  the 
first  data  record.  The  immediate  checking  is  required  since  the  call  to 
SETREAD  may  be  followed  immediately  by  a  call  on  RDARRAY  to  begin  data 
transfer.  The  second  data  record,  however,  is  only  read  in  SETREAD.  The 
error  detection  and  correction  of  the  second  and  later  data  records  is 
performed  in  subroutine  RDARRAY. 
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SUBROUTINE  TERMTAP 


] 


PURPOSE : 

ENTRY  POINTS: 


This  routine  terminates  the  file  using  buffer  ITP 
and  returns  the  buffer  for  use  by  other  files. 

TERMTAPE,  TERMTAP,  TERMTPE 


FORMAL  PARAMETERS:  None 


COMMON  BLOCKS:  DRC5162,  INTFILE,  FILE,  22642626,  FILELAB,  FORFLS, 

.  *  '  ITP,  MY I DENT,  TWORD,  FI  LABEL,  IFTPRNT,  MYLABEL, 

NOPRINT,  TODAY,  LOCVAR 


SUBROUTINES  CALLED:  ABORT,  WARNING,  ERA2E,  SCOPE  PFS  Operating  System 

Disk  I/O  subroutines  (LSTATUS,  SEEK,  LOCATE,  DREAD, 
DWRITE,  DEOF) 

CALLED  BY:  All  programs  of  the  QUICK  system 


Method 


The  three  entry  points  are  at  the  same  location.  The  three  spellings  of 
the  entry  correspond  to  the  spellings  used  in  the  calling  sequences. 

The  only  input  from  the  calling  program  to  TERMTAP  is  the  buffer  number 
ITP  in  common  block  / ITP/. 

For  read  status  files,  processing  by  TERMTAP  is  very  straightforward.  As 
shown  in  figure  6,  tape  files  are  rewound  (statement  506)  and  disk  files 
are  returned  to  their  first  sector  address  by  subroutine  SEEK  (statement  505) . 
The  file  is  set  not  active  (statement  507),  and  ITP  is  restored  to  its 
input  value  (statement  508),  since  its  absolute  value  was  used  as  the  buffer 
number. 

For  write  files,  processing  is  more  complex  for  three  reasons.  First, 

TERMTAP  must  empty  the  last  data  buffer  onto  the  file  and  add  a  padding 
record  to  the  file.  Second,  the  file  label  must  be  rewritten  so  that  it 
includes  the  number  of  words  written  on  the  file  in  its  third  word.  Last, 
if  the  file  is  a  non-scratch  disk  file,  its  length  must  be  added  to  the 
disk  directory  file  DIRC5162. 

Before  writing  the  last  data  record,  TERMTAP  must  check  the  status  of  the 
last  write  operation.  (If  the  last  data  record  is  also  the  first  data 
record  this  check  is  not  performed,  as  the  last  write  operation  was  the 
label  write  operation,  checked  in  SETWRITE.)  If  errors  arc  encountered 
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in  writing  either  the  last  or  next  to  last  data  record,  TERMTAP  applies 
the  same  error  correction  procedures  described  in  subroutine  WRARRAY  for 
write  operation  errors.  When  all  data  records  have  been  written  success¬ 
fully,  a  padding  record  is  written.  This  record  contains  96  words  of  the 
word  PADFILE.  This  record  is  required  by  the  double  buffering  operation 
of  RDARRAY.  While  transferring  data  from  one  data  record  (in  the  filehandler 
buffer),  RDARRAY  is  reading  the  next  data  record  from  the  file.  Thus, 
retrieval  of  information  from  the  last  data  record  requires  a  padding 
record  to  follow.  If  this  were  not  the  case,  an  end-of-file  error  would 
occur  whenever  data  were  retrieved  from  the  last  data  record.  If  TERMTAP 
encounters  errors  in  writing  the  padding  record,  no  attempt  is  made  to 
correct  the  error.  Finally,  an  end-of-file  mark  is  placed  after  the 
padding  record.  (Operating  system  routine  DEOF  is  used  for  this  purpose 
on  all  disk  files.) 

The  file  is  rewound  (for  disk  files,  positioned  at  the  beginning),  and 
the  label  is  read.  The  number  of  words  written  on  the  file  is  inserted 
in  word  three  of  the  label  and  the  file  again  positioned  at  the  beginning, 

The  new  label  is  then  written  on  the  file.  No  attempt  is  made  to  correct 
I/O  errors  in  reading  or  rewriting  the  label. 

For  tape  files,  the  tape  is  then  rewound.  At  that  point,  the  operating 
system  inserts  two  end-of-file  marks  and  a  short  BCD  record  between  the 
label  and  the  first  data  record.  The  file  buffer  is  deactivated 
(statement  S07),  and  the  subroutine  returns  control  to  the  calling  program. 

For  scratch  disk  files,  the  label  rewrite  is  followed  by  the  buffer  return 
processing  of  statement  507.  For  non-scratch  disk  files,  the  disk  file 
directory  must  be  updated.  The  dii'ectory  is  read  from  the  disk.  The 
logical  file  name  is  found  in  the  active  file  list,  and  the  number  of  words 
written  on  the  file  is  inserted  in  the  list.  The  directory  is  then  re¬ 
written  on  the  disk  file.  No  attempt  is  made  to  correct  I/O  errors  in 
reading  or  writing  the  disk  file  directory.  Also,  if  the  logical  file 
name  is  not  found  in  the  active  list,  tly  a  warning  message  is  issued. 

In  any  event,  control  goes  to  statement  507  for  buffer  return  processing. 
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CHAPTER  3  i 

SPECIAL-PURPOSE  UTILITY  ROUTINES 


This  chapter  contains  a  description  of  the  special-purpose  programs 
OUTFILE,  REL0'\DF ,  DECLARES,  and  FILEDUMP.  While  these  programs  are 
part  of  the  QUICK  utility  package,  they  are  presented  in  a  separate  , 
chapter  because  of  the  unique  nature  of  the  support  functions  they 
perform. 

The  common  blocks  used  by  programs  OUTFILE  and  RELOADF  are  described 
in  table  3  (following  the  description  of  program  OUTFILE).  The 
common  blocks  used  by  DECLARES  and  FILEDUMP  are  applicable  to  other 
utility  routines  and  are,  therefore,  presented  in  appendix  A.  . 
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PROGRAM  OUTFTLE 


1 


i 

PURPOSE : 


ENTRY  POINTS: 
FORMAL  PARAMETERS: 


COMMON  BLOCKS: 


SUBROUTINES  CALLED: 


To  read  information  from  disk  files  and  write  it 
on  magnetic  tape  in  such  a  way  that  either  the 
last  program  run  can  be  repeated  or  the  next 
program  can  be  rtn  by  restarting  the  subsystem 
(using  program  RE LOAD F  to  reload  the  disk  files 
from  the  magnetic  tapes). 

OUTFILE 

None 

BUFFERS,  D I  CLARY,  DISKIO,  DRC5162,  DSKHARD, 
ERRMESS,  ERRNUM,  FILENOW,  FILEREC,  LOCATOR, 
MACHINE,  SAVWRIT,  SUPRVIS,  TAPHARD 

CLOSPIL,  CLRCMON,  GETDF,  LOCATE,  NODIRC,  OPENSPL, 
OUTBFTP ,  OUTERTP,  SETHEAD 


Method 


The  primary  function  of  program  OUTFILE  is  to  dump  information  from  disk 
files  used  by  a  program  in  one  of  the  QUICK  subsystems  onto  spill  tapes 
m  such  a  way  that  program  RELOADF  car  be  used  to  reload  the  disk  files 
from  the  disk  files  at  a  later  time  so  that  the  QUICK  subsystem  can  be 
restarted  where  it  stopped. 


OUTFILE  itself  does  not  read  or  write  information  to  or  from  tapes  or 
disks,  but  instead  calls  subroutines  which  handle  these  functions.  First 
it  uses  CLRCMON  to  initialize  the  variables  in  all  of  its  common  blocks. 


Then  it  supervises  the  process  by  which  the  master  directory  (common 
/DRC5162/)  is  read  from  the  disk  file  whc-c  name  is  contained  in  variable 
NAMDIRC  (common  /SUPRVIS/).  It  reads  the  directory  twice  and  each  time 
uses  subroutine  SEEK*  to  position  the  disk  read  head  at  the  beginning  of 
the  file.  The  full  length  of  the  directory  is  unknown  until  it  is  read; 
hence, ' OUTFILE  first  uses  subroutine  DREAD*  to  input  32  (LGNLIST  =  32) 
words  of  the  directory.  The  second  time  DREAD  inputs  the  full  master 
directory  since  now  LENLIST  =  l)lRC(l)  which  is  the  first  word  of  the 
master  directory.  In  the  event  that  end-of-file  or  parity  errors  are 
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encountered  during  this  process,  OUTFILE  repeats  it  until  the  error  is 
corrected  or  until  it  has  failed  WTIMESR  (common  /SUPRVIS/)  times  to 
correct  the  error;  in  the  latter  case  it  calls  NODIRC  to  write  appropriate 
error  information  on  the  standard  output  file  and  to  abort  the  run. 

When  the  full  length  of  the  master  directory  has  been  read,  OUTFILE  calls 
SETHEAD  to  determine  the  values  of  variables  in  the  major  directory 
(common  /LOCATOR/).  This  directory  contains  information  about  the  manner 
in  which  the  disk  files  will  be  dumped  onto  the  spill  tapes;  OUTFILE 
writes  this  directory  as  the  first  file  of  the  first  spill  tape.  However, 
if  it  encounters  an  end-of-tape  or  parity  error,  it  calls  OUTERTP  with 
the  argument  equal  to  1 ,  to  correct  the  operation  by  repeating  it. 

Finally,  OUTFILE  controls  the  process  by  whicli  the  spill  tapes  are 
written.  OPENSPL  is  called  once  for  each  tape  to  set  up  and  buffer  out 
the  minor  directory  (common  /DICTARY/),  which  references  it,  to  the  first 
file  of  the  tape  (except  for  the  first  spill  tape  where  the  minor 
directory  is  the  second  file).  Then,  for  each  record  on  the  tape  OUTFILE 
first  calls  GETDF  to  fill  the  input  buffer  from  the  current  disk,  file(s), 
and  then  calls  OUTBFTP  for  the  record  to  buffer  out  the  output  buffer  to 
the  record  on  the  spill  tape.  When  all  the  records  for  a  spill  tape  have 
been  buffered  out,  CLOSPIL  is  called  to  terminate  the  tape  and  see  that 
a  new  tape  is  mounted  if  another  reel  will  be  needed. 

OUTFILE  terminates  its  processing  after  writing  error  recovery  messages 
to  the  computer  operator  and  to  the  output  file. 

Table  3  lists  the  common  blocks  used  by  program  OUTFILE*.  The  flow  of 
operations  in  OUTFILE  is  shown  in  figure  7. 


*Prograrn  RE  LOAD  F  also  uses  these  common  blocks. 
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Table  3.  Common  Blocks  (Programs  OUTFILE 
and  RE LOAD F) 

(Sheet  1  of  5) 


VARIABLE 


BLOCK 

OR  ARRAY 

DESCRIPTION 

BUFFERS 

INBUFF 

The 

for 

index  of  the  buffer  currently  being  used 
input  (INBUFF=1  or  2) 

I0UTBUF 

The 

for 

index  of  the  buffer  currently  being  used 
output  ( 1 OUTBUF= 1  or  2) 

NSECTBF 

The 

one 

number  of  disk  sectors  which  will  fit  in 
buffer 

LBUFF 

The 

length  in  words  of  one  buffer 

IOBUFF 

The 

input/output  buffer  (IOBUFF  has  the 

dimensions  LBUFF  and  2  -  i,e.,  IOBUFF (LBUFF, 2) ) 


DICTARY 


I  AM 
NRFC 
I  DENT 
NUMONME 
NAMEONT 

LONT 


DICTARY  is  output  as  the  first  file  on  all 
spill  tapes  except  the  first  tape  where  it 
is  the  second  file;  it  is  the  'minor  directory' 
and  refers  to  only  one  tape 

Spill  tape  number 

Number  of  records  on  this  tape 

Spill  tape  identifier 

Number  of  files  on  this  tape 

An  array  containing  the  names  of  files  on 
this  tape  (it  is  dimensioned  MAXFILH  -  see 
LOCATOR  block  description) 

An  array  containing  the  word  lengths  of  files 
on  this  tape  (it  is  dimensioned  MAXFILH  -  sec 
LOCATOR  block  description) 


DISKIO  ISTART 


I  END 


ISTRF.C 

IENDRF.C 


Index  to  the  starting  word  in  the  input/output 
buffer  IOBUFF 

Index  to  the  ending  word  in  the  input/output 
buffer  IOBUFF 

Index  to  the  starting  word  in  the  input/output 
buffer  for  this  record 

Index  to  the  ending  word  in  the  input/output 
buffer  for  this  record 


Table  3.  (cent.) 
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VARIABLE 

BLOCK  OR  ARRAY  DESCRIPTION 


DRC5162 


LliNJ  1ST 
NOWACTV 
LFNAME 
NOIVORDS 

NINTRNL 

LINTRNL 


DRC5162  is  the  master  directory;  it  is  main¬ 
tained  on  the  disk  by  the  filehandler  and 
contains  information  about  the  disk  files 
which  are  to  be  spilled 

Length  of  the  master  directory  file 

The  number  of  active  files 

An  array  containing  the  names  of  the  files 

An  array  containing  the  lengths  in  words  of 
the  disk  files 

The  number  of  internal  scratch  files  currently 
allocated  to  the  program 

The  length  in  words  of  a  scratch  file 


DSKHARD  This  block  contains  information  about  the  disk 

hardware 

N1VDSCT  The  number  of  words  per  disk  sector 

NSCTRAK  The  number  of  disk  sectors  per  track 


ERRMESS 


A  common  block  used  in  conjunction  with 
subroutine  ABORT  (see  appendix  A  for  description) 


ERRNUM 


NTERRTP  The  total  number  of  tape  read  or  write  errors 

NCERRTP  The  number  of  tape  read  or  write  errors  for 

the  current  tape 

NTIMTAP  The  number  of  times  which  the  current  tape  has 

been  changed 

NTERRDF  The  total  number  of  disk  read  or  write  crrois 

NCERRDF  The  number  of  disk  read  or  write  errors  for 

the  current  disk  file 


o() 


Table  .3.  (cont.) 
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VARIABLE 


BLOCK 

OR  ARRAY 

DESCRIPTION 

ERRNUM 

(cont.) 

I  AMOK 

An  error  recovery  indicator  for  the  spill  tapes 
=  1  Successful  error  recovery 
=  0  Unsuccessful  recovery  from  error  not 
on  first  tape 

=-l  Unsuccessful  recovery  from  error  on  first 
tape 

IRPERR 

A  disk  file  read  or  write  error  indicator 
=0  No  error 

.GT.O  The  number  of  words  left  in  the  file 
after  a  parity  error 
.LT.O  End-of-file  error 

FILENOW 

This  common  block  is  a  work  area  for  a  read/ 
write  operation  affecting  the  current  disk 
file 

NAMENOW 

The  logical  name  of  the  current  disk  file 

N1VORDNW 

The  number  of  words  read  from/written  to  the 
current  file 

LIMIT 

The  number  of  words  left  to  be  read  from/written 
to  the  current  file 

LOCNOW 

The  address  of  the  present  sector  in  the 
current  file 

NUMNOIV 

The  number  of  the  current  file 

N XT RAIL 

The  number  of  trailer  words  for  the  current 
disk  file  to  be  read  from/written  on  the 
current  spill  tape 

NXTIIEAD 

The  number  of  header  ..ords  for  the  current 
disk  file  to  be  read  from/written  on  the 
current  spill  tape 

FILE RE C 

LFILABL 

The  length  of  the  filehandler  disk  file  label 
record 

LPUYREC 

The  length  of  disk  physical  records  which  are 
provided  by  the  filehandler 
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BLOCK 

LOCATOR 


MACHINE 


SAVWRIT 


Tabic  3.  (cont.) 

(Sheet  4  o.f  5) 


VARIABLE 


OR  ARRAY 

DESCRIPTION 

This  block  is  the  first  file  on  the  first  spill 
tape  and  is  the  major  directory  for  the  spill 
tapes 

NTAPES 

The  number  of  spill  tapes  used 

NFILES 

The  number  of  disk  files  spilled 

MAXFILE 

The  maximum  number  of  disk  files  which  can  be 
spil led 

NAMES 

An  array  containing  the  logical  file  names  of 
the  disk  files  dumped  onto  the  spill  tapes;  it 
is  dimensioned  MAXFILE 

LENGTHS 

An  array  containing  the  lengths  in  words  of 
the  disk  files  which  are  contained  on  the 
spill  tapes;  it  is  also  dimensioned  MAXFILE 

I  READ 

Logical  unit  number  for  standard  input  file 

I  WRIT 

Logical  unit  number  for  standard  output  file 

I  COMM 

Logical  unit  number  for  standard  comment  file 
to  computer  operator 

I PUNCH 

Logical  unit  number  for  standard  punch  output 
file 

This  common  block  saves  the  starting  pointers 
for  the  first  data  on  the  current  spill  tape 

NUMSTRT 

The  file  number  of  the  first  disk  file  on 
the  current  spill  tape 

LOCSTRT 

The  disk  sector  address  for  the  first  data  on 
the  current  spill  tape 

NXTIISV 

The  number  of  header  words  to  be  output  cn 
the  spill  tape  before  any  disk  files  are  dumped 

NXTTSV 

The  number  of  trailer  words  to  be  output  on 
the  spill  tape  before  any  disk  files  are 
dumped 

NWDRDSV 

Number  of  words  already  input  from  the  first 
disk  file  and  written  on  the  current  spill  tape 
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Table  3. 


(cent.) 

(Sheet  5  of  5) 


VARIABLE 


BLOCK 

OR  ARRAY 

DESCRIPTION 

SUPRVIS 

MAX’JNIT 

The  maximum  number  of  spill  tape  logical  units 

I  UNIT 

An  array  containing  the  three  logical  unit 
numbers  of  the  spill  tapes 

NOWLIN  IT 

The  logical  unit  number  of  the  current  spill 
tape 

N AMD IRC 

The  logical  file  name  of  the  master  directory 
(i.e.,  common  /DRC51G2/) 

MTIMESR 

The  maximum  number  of  times  the  program  attempts 
to  correct  a  read  error 

MTIMBSW 

The  maximum  number  of  times  the  program  attempts 
to  correct  a  write  error 

MCHANGE 

The  maximum  number  of  tape  changes  allowed 
while  attempting  to  correct  a  tape  error 

LWRIT 

The  number  of  words  written  from  the  current 
output  buffer  onto  the  current  spill  tape 
record 

LDIM 

The  dimensioned  length  of  the  master  directory 
(common  /DRC5162/) 

IDNTSAV 

The  value  of  IDENT  which  is  set  in  subroutine 
CLRCMON 

LUNDISK 

The  logical  unit  number  for  disk 

LNGHDTL 

The  length  of  the  header  and  trailer  blocks 
which  precede  and  follow,  respectively,  a  disk 
file  which  is  dumped  on  a  spill  tape 

TAPHARD 

This  block  contains  information  about  the 
magnetic  tape  hardware 

MXltfDSTP 

The  maximum  number  of  words  which  can  be  written 
on  one  reel  of  magnetic  tape  if  the  physical 
record  size  is  LBUFF  (in  common  /BUFFERS/] 

I  MODE 

The  parity  mode  of  tape  I/O  operations 

=  1  if  mode  is  BINARY 
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Fig.  7.  Program  OUTFILF: 

(Sheet  1  of  3) 


SUBROUTINE  CLOSPIL, 


PURPOSE:  To  terminate  the  spill  tape  and  to  recover  from 

end-of-tape  or  parity  errors  on  a  spill  tape, 
if  necessary. 

ENTRY  POINTS:  CLOSPIL 

FORMAL  PARAMETERS :  None 

COMMON  BLOCKS:  BUFFERS,  DICTARY,  ERRNUM,  F1LEN01V,  LOCATOR,  MACII1N! 

SAVWRIT,  SUPRVIS 

■SUBROUTINES  CALLED:  OIJTF.RTP,  ANOTHER 

CALLED  BY:  OUTFILE 


Method 

Subroutine  CLOSPIL  first  checks  the  status  of  the  spill  tape  which  it  is 
to  terminate.  If  an  end-of-tape  or  parity  error  was  encountered  by 
OUTFILE  when  it  tried  to  write  on  the  tape,  CLOSPIL  calls  OUT  PUT P  with  the 
argument  equal  to  3  to  attempt  to  recover  from  the  error.  If  recovery  is 
successful,  CLOSPIL  continues  processing  the  tape  as  indicated  below. 
Otherwise  OUTERTP  aborts  the  run. 

If  and  when  all  records  have  been  successfully  written  on  the  spill  tape, 
CLOSPIL  puts  an  end-of-file  mark  on  the  tape,  CLOSPIL  uses  subroutine 
ANOTHER  to  unload  the  terminated  tape, 

CLOSPIL  then  instructs  the  computer  operator  first  to  save  and  label  the 
old  tape  and,  if  another  spill  tape  is  to  be  required  on  the  unit,  to  mount 
a  fresh  tape  on  the  same  tape  unit.  CLOSPIL  completes  its  processing  by 
resetting  the  variables  in  common  block  /SAVWRIT/  and  writing  a  message 
to  the  output  file  concerning  the  number  of  errors  encountered  and  cor¬ 
rected  before  the  spill  tape  was  successfully  written. 

Subroutine  CLOSPIL  is  illustrated  in  figure  8. 
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r  Write  Error  Count 
Messages  Cor  the 
I  SpiJl  Tape  to  j 
Output  File  / 


RETURN 


SUBROUTINE  CLRCIrON 


PURPOSE:  To  clear  or  initialize  all  common  blocks  for 

program  OUTFILE  (or  program  RELOADF) . 


ENTRY  POINTS: 

CLRCMON 

FORMAL  PARAMETERS: 

None 

COMMON  BLOCKS: 

BUFFERS 

ERRMESS 

MACHINE 

SUBROUTINES  CALLED: 

None 

CALLED  BY: 

OUTFILE 

DICTARY,  DISKIO,  DRC5162,  DSKHARD, 
ERRNUM,  FILENOW,  FILEREC,  LOCATOR, 
SAVWR IT ,  SUPRVIS,  TAPIIARI) 


(or  RELOADF) 


Method 


Subroutine  CLRCMON  initializes  all  the  variables  in  the  common  blocks  used 
by  program  OUTFILE  (or  program  RELOADF).  It  assumes  that  the  variables 
LBUFF,  MAXFILE,  MAXUNIT,  and  LDIM  have  been  set  by  DATA  statements  at 
load  time;  the  variables  are  defined  in  the  calling  program.  There  is  no 
significance  to  the  order  in  which  the  common  block  variables  arc  initializec 

Subroutine  CLRCMON  is  illustrated  in  figure  9. 
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Subrout i nc  CLRCMON 


SUBROUTINE  GETDF 


PURPOSE : 


To  set  up  a  disk  file  for  input  into  OUTFILE. 


ENTRY  POINTS:  GETDF 

FORMAL  PARAMETERS :  None 


COMMON  BLOCKS; 


BUFFERS,  DTSKIO,  DSKI1ARI),  ERRNUM,  F'lLIiNOW,  F1LEREC, 
LOCATOR,  MACHINE,  SAVWRIT,  SUPRVIS 


SUBROUTINES  CALLED :  INBUFDK,  INERRDK,  INLABEL 

CALLED  BY;  OUTFILE 


Method 


If,  when  the  last  call  to  GETDF  occurred,  the  last  word  placed  in  the 
input  buffer  either  immediately  preceded  a  trailer  lab c 1  or  was  part 
of  a  trailer  or  header  label  for  a  disk  file,  subroutine  GETDF  now  places 
the  remainder  of  the  trailer  label  and  the  header  label  (or  the  re¬ 
mainder  of  the  header  label)  at  the  beginning  of  the  input  buffer;  then 
it  calls  INLABEL  to  place  the  filchandlor  label  after  these  labels 
in  the  buffer. 

If  the  remainder  of  the  input  buffer  can  be  filled  from  the  current  disk 
file,  GETDF  determines  how  many  words  are  needed  to  fill  it  and  calls 
INBUFDK  to  actually  transfer  the  words  from  the  disk  file  into  the  buffer. 
However,  if  more  than  one  disk  file  is  required  to  fill  the  buffer, 

GETDF  processes  one  file  at  a  time  until  the  buffer  is  full.  First  it 
calls  INBUFDK  to  place  the  remainder  of  the  current  file  into  the 
buffer;  after  that  it  places  the  whole  trailer  label  into  the  buffer  if 
it  will  fit.  (Otherwise,  part  of  the  label  is  saved  for  the  next 
buffer.)  Then  it  determines  whether  the  header  label  for  the  next  disk 
file  can  be  added  to  the  buffer  and  places  it  there  if  it  fits.  (Again, 
part  of  the  label  Is  saved  for  the  next  buffer  if  it  does  not  fit.) 

Finally,  it  calls  1NLABEL  to  place  the  filchandlor  label  for  the  new 
file  into  the  buffer.  If  the  buffer  is  still  not  full,  the  length  of 
the  new  disk  file  is  compared  with  the  size  of  the  remaining  buffer 
space  to  determine  whether  this  file  will  now  fit  into  the  buffer;  then 
processing  continues  as  described  above  until  the  buffer  is  full. 

Whenever  end-of-file  or  parity  errors  are  encountered  by  INBUFDK  or  INLABEL 
while  these  routines  arc  reading  words  from  the  disk  files,  GETDF  calls 
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INF.RRDK  to  attempt  to  recover  from  the  errors.  When  the  recovery  is 
unsuccessful,  warnings  are  written  to  the  output  file  and  an  appro¬ 
priate  amount  of  the  input  buffer  is  filled  with  the  error  message 
PAR  ITYlilt . 

Subroutine  G12TDP  is  illustrated  in  figure  10. 
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SUBROUTINE  INBUFDK 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 

SUBROUTINES  CALLED: 
CALLED  BY: 


To  fill  the  input  buffer  from  the  current  file 
on  the  disk. 

INBUFDK 

None 

BUFFERS,  DISKIO,  DSKIIARD,  FILENOW,  FI  LERliC, 
SUPRVIS 

INERRDK 

CETDF,  INLABEL 


Method 


Subroutine  INBUFDK  first  determines  how  many  whole  physical  records  must 
be  read  from  the  current  disk  file  to  fill  the  input  buffer  from  I START 
to  IEND;  it  calls  DREAD*  once  for  each  record  to  actually  fill  the  buffer. 
Before  each  call  to  DREAD,  INBUFDK  calls  LSTATUS*  to  determine  whether 
the  last  disk  read  operation  has  been  successfully  completed.  If  an 
end-of-file  or  parity  error  has  been  encountered,  INERRDK  is  called  to 
attempt  a  recovery  from  the  error.  Finally,  if  only  a  part  of  a  physical 
record  must  be  read  to  finish  filling  the  buffer,  a  last  call  to  DRF.AD 
is  made  to  perform  the  operation. 

Subroutine  INBUFDK  is  illustrated  in  figure  11. 


*PFS  I/O  disk  subroutines 
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fig .  1 J  .  (cunt . ) 

(Shoot  2  of  2) 


SUBROUTINE  INERRDK 


PURPOSE :  To  repeat  a  disk  file  read  operation  which 

terminated  because  of  an  cnd-of-filc  or  purity 
error  in  order  to  correct  the  read  if  this  is 
possible. 

ENTRY  POINTS:  INERRDK 


FORMAL  PARAMETERS : 


COMMON  BLOCKS: 


SUBROUTINES  CALLED: 


I  -  An  error  type  indicator. 

I  =  1  if  input  enri-of-fiie  error 
I  -  2  if  input  parity  error 

BUFFERS,  DISKIO,  DSKUARD,  ERRMESS,  ERRNUM, 
FILE  NOW,  MACHINE,  SlIPRVIS 

WARNING 


CALLED  BY: 


GETDF,  INBUFDK 


Method 

Subroutine  INEKRDK  calls  WARNING  to  write  a  disk  read  error  message  on 
the  output  file.  Then  it  calls  SEEK*  to  reposition  the  current  disk 
file  at  the  beginning  of  the  physical  record  so  that  DREAD*  can  be  used 
to  repeat  the  attempt  to  read  the  physical  record.  If  the  read  cannot  be 
successfully  completed  in  MTIMESR  (common  /SUPRVIS/)  correction  attempts, 
1NERRDK  writes  the  message:  IRRECOVERABLE  READ  EOF  (or  PARITY]  ERROR  ON 
DISK  FILE  to  the  computer  operator  and  on  the  standard  output  file. 

’Hi on  it  uses  WARNING  to  write  a  DISK  FILE  ABANDONED  message  on  the  standard 
output  file.  Finally,  INERRDK  fills  each  word  -  corresponding  to  a  word 
of  the  physical  record  which  cannot  be  read  -  with  END  FILE  or  PARITYER 
depending  on  the  type  of  error. 

Subroutine  INERRDK  is  illustrated  in  figure  12. 


*PFS  Disk  I/O  subroutines 


SO 
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Fig.  12.  (cont.) 
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SUBROUTINE  IN LABEL 


PURPOSE: 

ENTRY  POINTS: 
FORMAL  PARAMETERS: 


COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  road  the  filehandlcr  label  for  each  disk  file, 
IN LAB EL 

FLAG  -  Is  a  logical  variable  having  the  value 
.TRUE,  if  the  filehandlcr  label  must  be 
input  and  .FALSE,  otherwise 

DISKIO,  ERRMESS,  FILENOW,  FILEREC 

INBUFDK,  WARNING 


GETDF 


Method 


Subroutine  INLABEL  tests  the  value  of  FLAG;  if  it  is  FALSE,  the  call  to 
INLABEL  was  extraneous  and  INLABEL  calls  WARNING  to  write  the  message 
EXTRANEOUS  CALL  FOR  LABEL  INPUT  on  the  standard  output  file.  If  FLAG  is 
TRUE,  INLABEL  resets  the  IEND  index  to  correspond  to  the  last  word  of  the 
filehandler  label  and  calls  INBUFDK  to  input  the  label  from  disk.  Then 
it  resets  the  ISTART  and  IEND  indices  as  well  as  the  word  counter  for 
words  read  from  the  disk  file  so  far.  Finally  it  sets  FLAG  equal  to 
.FALSE.. 

Subroutine  INLABEI,  is  illustrated  in  figure  13. 
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Fiji.  13.  Subroutine  INLABF.L 
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SUBROUTINE  NODIRC 


PURPOSE: 

To  print  an  error  message  and  abort  the  run  if 
program  OUTFILE  (or  RELOADF)  is  unable  to  read 
the  master  directory,  common  /DRC5162/,  or  if 
RELOADF  is  unable  to  read  the  major  directory, 
common  /LOCATOR/ . 

ENTRY  POINTS: 

nodtrc 

FORMAL  PARAMETERS: 

None 

COMMON  BLOCKS: 

DRC5162,  ERRMESS,  MACHINE,  SUPRVIS 

SUBROUTINES  CALLED: 

ABORT 

CALLED  BY: 

OUTFILE  (or  RELOADF) 

Method 

Subroutine  NODIRC  writes  the  message  UNABLE  TO  READ  DIRECTORY  OF  ACTIVE 
FILES  to  the  computer  operator  and  dumps  the  contents  of  the  current 
directory.  Then  it  calls  ABORT  to  abort  the  run. 

Subroutine  NODIRC  is  illustrated  in  figure  14. 


ig.  14.  Subroutine  N0D1RC 
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SUBROUTINE . OPENSPL 


PURPOSE: 

ENTRV  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 

SUBROUTINES  CALLED: 
CALLED  BY: 


To  set  up  a  spill  tape  for  writing  information 
from  disk  file (s) . 

OPENSPL 

None 

BUFFERS,  DICTARY,  ERRNUM,  F1LENOW ,  LOCATOR, 
MACHINE,  SAVWRIY,  SUPRVIS,  TAPIIARD 

OUTERTP 

OUTFILE 


Method 


Subroutine  OPENSPL  determines  how  many  of  the  current  disk  files  not  yet 
written  on  spill  tapes  will  fit  on  this  spill  tape.  Then  it  determines 
how  many  records  on  the  tape  should  be  written  to  contain  the  disk  file 
information.  The  length  of  each  record  is  the  length  of  the  input/output 
buffer.  During  these  determinations,  it  sets  the  values  of  the  parameters 
which  are  used  during  the  tape  writing  process,  (These  parameters  are 
contained  in  common  block  /DICTARY/.) 

As  soon  as  these  tape  write  parameters  have  been  calculated,  OPENSPL 
determines  the  logical  unit  number  for  the  spill  tape  and  rewinds  the 
tape  if  it  is  not  the  first  spill  tape  to  be  written.  Then  it  writes 
the  minor  directory  (common  /DICTARY/)  on  the  tape  and  also  on  the  output 
file.  If  the  write  operation  to  the  spill  tape  fails  because  of  an 
end-of-tape  or  parity  error,  OPENSPL  calls  OUTERTP  with  the  argument 
equal  to  2  to  repeat  that  operation  until  it  is  successful  or  impossible 
to  complete.  In  the  latter  case,  the  run  is  aborted.  Finals,  SEEK*  is 
called  to  reposition  the  disk  read  head  for  input. 

Subroutine  OPENSPL  is  illustrated  in  figure  15. 
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SUBROUTINE  OUTBFTP 


PURPOSE : 

To  buffer  out  the  information  in  the  output 
buffer  to  the  current  spill  tape. 

ENTRY  POINTS: 

OUTBFTP 

FORMAL  PARAMETERS: 

None 

COMMON  BLOCKS: 

BUFFERS,  DICTARY,  SUPRVIS,  TAPHARD 

SUBROUTINES  CALLED: 

OUTERTP 

CALLED  BY: 

OUT  FI  LE 

Method 

Subroutine  OUTBFTP  first  checks  to  determine  whether  the  previous  buffer 
out  operation  to  the  spill  tape  is  completed.  If  this  operation  resulted 
in  an  end-of-tape  or  parity  error,  OUTBFTP  calls  OUTERTP  with  argument 
equal  to  3  to  repeat  the  operation  until  it  is  successful  or  until  too 
many  rewrite  attempts  cause  the  run  to  be  aborted.  When  the  previous 
buffer  out  operation  has  been  successfully  completed,  OUTBFTP  buffers  out 
the  current  information  in  the  output  buffer  to  the  spill  tape. 

Subroutine  OUTBFTP  is 

illustrated  in  figure  16. 
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SUBROUTINE  OUTERTP 


PURPOSE: 

To  repeat  a  tape  write  operation  whon  an  end-of- 
tape  or  parity  error  develops,  or  to  abort  the 
run  if  the  write  operation  cannot  he  successfully 
completed. 

ENTRY  POINTS: 

OUTERTP 

FORMAL  PARAMETERS: 

I  -  Is  used  to  detormine  the  nature  of  the 

information  being  written  on  tape  when  the 
error  developed 

I  =  1  if  the  major  directory  (common 
/LOCATOR/)  was  being  written  on  the 
first  spill  tape 

I  =  2  if  the  minor  directory  (common 
/DICTARY/)  was  being  written  on  the 
current  spill  tape 

1=3  if  the  current  output  buffer  was 

being  written  on  the  current  spill  tape 

COMMON  BLOCKS: 

BUFFERS,  DICTARY,  ERRMESS,  ERRNUM,  FILENOW, 
LOCATOR,  MACHINE,  SAVWRIT,  SUPRVIS,  TAPHARD 

SUBROUTINES  CALLED: 

ABORT,  ERAZE,  NEWUNIT,  SKIPFILE,  WARNING 

CALLED  BY: 

CLOSPIL,  OPENSPL,  OUTBFTP ,  OUTFILE 

Method 


First  subroutine  OUTERTP  calls  WARNING  to  write  an  error  warning  message 
on  the  output  file.  Then  it  determines  whether  the  major  directory,  the 
minor  directory,  or  the  output  buffer  was  being  written  on  the  spill 
tape  when  the  end-of-tape  or  parity  error  occurred.  In  each  of  the 
three  cases  OUTERTP  positions  the  tape  at  the  beginning  of  the  record 
which  was  being  written,  calls  ERAZE  to  erase  six  inches  of  tape  and 
repeats  the  buffer  out  operation  which  was  previously  unsuccessful. 

If  the  error  recurs  even  after  MTIMESR  (common  /SUPERVIS/)  correction 
attempts,  the  tape  unit  is  unloaded  and  the  unit  released  by  calling 
NEWUNIT  and  a  fresh  tape  is  mounted  on  a  different  tape  unit;  the  disk 
pointers  are  then  reset  for  the  beginning  of  the  disk  file.  (The  first 
attempt  to  write  on  the  new  tape  is  made  by  the  calling  subprogram;  thus, 
OUTERTP  doss  not  write  on  the  tape  unless  errors  are  again  encountered.) 
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If  the  error  cannot  be  corrected  after  changing  the  tape  NTIMTAP 
(common  /ERRNUM/)  times,  it  is  considered  irrecoverable;  in  this  case 
appropriate  messages  recording  the  nature  and  number  of  errors  are 
written  to  the  computer  operator  aiid  to  the  standard  output  file,  after 
which  OUTERTP  calls  ABORT  to  abort  the  run. 

Similarly,  under  those  circumstances  where  all  the  available  tape  units 
have  been  released  because  of  errors,  error  messages  are  written  to  the 
output  file  and  the  run  is  aborted  by  a  call  to  ABORT. 

Subroutine  OUTERTP  is  illustrated  in  figure  17. 
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SUBROUTINE  SETHEAD 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 

SUBROUTINES  CALLED: 
CALLED  BY: 


To  prepare  data  for'  the  major  directory  (common 
/LOCATOR/  before  OUTFILE  writes  it  out  onto  the 
first  spill  tape.1  1  ! 

SETHEAD  , 

None  , 

DRC5162,  ERRMESS,  FILEREC,  LOCATOR,  MACHINE, 
SUPRVIS,  TAPHARl) 

WARNING 

■  i  •  •  i 

OUT, FILE. 


Method  ; 

I 

Subroutine  SETHEAD  first  'determines  whether  the  number  of  disk  files  to, 
be  dumped  on  spill  tape  exceeds  the  maximum,  ^lAXFILE,  which  can  be  handled 
by  OUTFILE.  If  it  does,  WARNING  is  called  to  write  the  message  TOO  MANY 
FILES  TO  SPILL  on  the  output  file;  in  this  case  OUTFILE  will  dump  onlv 
the  first  MAXFILE  files.  1  1 

•  I  :  .  ; 

Finally,  SETHEAD  determines  the  values  of  the  variables  in  the  major  ' 
directory  (common  /LOCATOR/). 

.  ’  '  .  i  :  •  1 

Subroutine  SETHEAD  is  illustrated  in  figure  18. 
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PROGRAM  RELOADF 


PURPOSE; 

ENTRY  POINTS; 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 

SUBROUTINES  CALLED; 


To  reload  disk  files  from  the  spill  tapes  pro¬ 
duced  by  program  OUTFILE  so  that  QUICK  subsystem 
processing  can  be  continued  or  repeated. 

RELOADF 

None 

BUFFERS,  DICTARY,  DISKIO,  DRC5162,  DSKHARD, 
ERRMESS,  ERRNUM,  FILENOW,  F1LEREC,  LOCATOR, 
MACHINE,  SAVWRIT,  SUPRVIS,  TAPHARD 

CLRCMON,*  ENDTAPE,  GETDATE,  GETLOC,  INBUFTP, 
NEXTAPE,  NODIRC, *  OUTDF,  TIME DAY 


Method 


Program  RELOADF  first  calls  CLRCMON  to  initialize  the  variables  in  all 
the  common  blocks.  Then,  after  writing  an  output  header  (using  TIMEDAY 
to  obtain  the  time  and  GETDATE  to  obtain  the  date)  on  the  output  file 
and  the  message  file  for  the  computer  operator,  it  calls  GETLOC  to 
input  the  major  directory,  /LOCATOR/,  from  the  first  spill  tape.  (GETLOC 
calls  ABORT  to  abort  the  run  if  this  directory  cannot  be  read.) 

Next,  for  each  spill  tape,  RELOADF  first  calls  NEXTAPE  to  input  the 
minor  directory,  /DICTARY/,  from  the  tape.  INBUFTP  is  called  to  input 
the  first  record  from  the  spill  tape.  Then,  for  each  of  the  remaining 
spill  tape  records,  the  indices  of  the  input  and  output  buffers  are 
switched,  INBUFTP  is  called  to  fill  the  current  input  buffer  from  the 
spill  tape,  and  OUTDF  is  called  to  set  up  the  disk  files  by  calling 
OUTBFDK  to  transfer  the  data  from  the  output  buffer  onto  the  disk  file. 
Finally,  the  indices  of  the  input  and  output  buffers  are  switched  again, 
and  RELOADF  calls  ENDTAPE  to  finish  reading  the  current  tape,  to  release 
it,  and  request  that  another  spill  tape  be  mounted  (when  more  than 
three  spill  tapes  are  used);  OUTDF  is  called  once  more  to  transfer  the 
remaining  data  to  the  disk  file(s). 

When  all  files  listed  in  the  major  directory,  /LOCATOR/,  have  been 
reloaded,  RELOADF  calls  ENDTAPE  to  finish  reading  the  current  tape  and 
discontinues  its  processing  of  the  spill  tapes. 


US 


Described  in  program  OUTFILE 


In  all  cases,  when  processing  is  completed,  RELOADF  writes  tape  and 
disk  error  counter  messages  on  the  standard  output  file  and  on  the 
output  comment  medium  and  also  the  message  PROCESSOR  RELOADF  COMPLETED. 

The  common  blocks  used  by  program  RELOADF  are  the  same  as  those 
previously  described  for  program  'JUTFILE.  See  table  3. 

Figure  19  shows  the  flow  of  operation  within  program  RELOADF. 
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SUBROUTINE  ENDTAPE 


PURPOSE: 

:  complete  the  reading  of  the  current  spill 
e. 

ENTRY  POINTS: 

ENDTAPE 

FORMAL  PARAMETERS: 

None 

COMMON  BLOCKS: 

DICTARY,  ERRNUM,  LOCATOR,  MACHINE,  SUPRVIS 

SUBROUTINES  CALLED: 

INERRTP,  ANOTHER 

CALLED  BY: 

RE LOAD F 

Method 

Subroutine  ENDTAPE  checks  the  status  of  the  last  tape  read  operation 
for  the  current  tape.  If  the  operation  terminated  with  an  end-of-file 
or  parity  error,  it  calls  INERRTP  to  attempt  to  reread  the  record. 

When  the  tape  has  been  successfully  read,  ENDTAPE  calls  ANOTHER  to 
release  it  and  then  checks  to  see  if  the  tape  unit  will  be  needed  for 
another  spill  tape.  If  so,  ENDTAPE  instructs  the  computer  operator  to 
mount  the  next  spill  tape  on  the  tape  unit. 

The  subroutine  returns  aftf  printing  out  error  counts  which  indicate 
the  number  of  tape  read  er.ors  encountered  on  the  last  tape  and  on  all 
the  tapes  read  so  far. 

Subroutine  ENDTAPE  is  illustrated  in  figure  20. 
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SUBROUTINE  GETLOC 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 

SUBROUTINES  CALLED: 
CALLED  BY: 


To  read  the  major  directory  to  the  spill  tapes 
(common  /LOCATOR/)  from  the  first  spill  tape. 

GETLOC 

None 

DRC5162,  ERRMESS,  LOCATOR,  MACHINE,  SUPRVIS, 
TAPHARD 

NOD IRC,  ABORT 

RELOADF 


Method 


Subroutine  GETLOC  first  attempts  to  buffer  in  the  major  directory  -- 
common  /LOCATOR/  —  from  the  first  spill  tape.  If  an  end-of-file  or 
parity  error  is  encountered  during  the  buffer  operation,  the  tape  is 
rewound  and  the  buffer  attempt  is  repeated.  If  this  buffer  process 
is  repeated  MTIMESR,  common  /SUPRVIS/,  times  without  success,  GETLOC 
determines  how  many  words  have  been  read  successfully  from  the  tape 
and  places  them  (the  words)  into  the  master  directory  (common  /DRC5162/) 
so  that  it  can  then  use  NODIRC  to  print  out  error  information  and 
abort  the  run. 

If,  on  the  other  hand,  the  buffer  operation  is  successful,  GETLOC 
checks  the  value  of  MAXFILE  (which  is  the  maximum  number  of  disk  files 
contained  on  the  spill  tapes)  against  the  value  of  MAXFILE  set  earlier 
in  RELOADF  If  they  are  not  equal,  then  either  RELOADF  has  not  been 
updated  to  correspond  to  program  OUTFILE,  or  the  value  read  from  the 
tape  is  in  error  for  some  other  reason.  In  either  case,  the  discrepancy 
is  encoded  into  an  error  message  and  ABORT  is  called  to  abort  the  run. 
The  computer  operator  is  also  informed  of  the  discrepancy. 

In  the  normal  case  where  the  major  directory  is  read  successfully  and 
MAXFILE  does  not  have  an  unexpected  value,  GETLOC  writes  the  major 
directory  on  the  standard  output  file  and  processing  control  is  returned 
to  RELOADF. 

Subroutine  GETLOC  is  illustrated  in  figure  21. 
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SUBROUTINE  INBUFTP 


PURPOSE : 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY; 


To  buffer  in.  a  spill  tape  record  into  the  input 
buffer. 

INBUFTP 

None 

BUFFERS,  DTCTARY,  SUPRVIS,  TAPHARD 

INERRTP 

RELOADF 


Method 


After  setting  local  variable  I  equal  to  the  index  for  the  current  input 
buffer,  INBUFTP  checks  the  status  of  the  last  buffer  in  operation  for 
the  current  spill  tape.  If  the  last  operation  ended  with  an  end-of-file 
or  parity  error,  INBUFTP  calls  INERRTP  (with  arguments)  to  repeat  the 
operation  until  it  succeeds  or  until  the  error  is  encountered  at  least 
MTIMESR,  common  /SUPRVIS/,  times;  in  the  latter  case,  the  unfilled 
portion  of  the  buffer  is  filled  with  the  word  PARITYER. 

Whether  the  preceding  operation  ended  successfully  or  not,  processing 
control  returns  to  RELOADF  after  INBUFTP  first  saves  the  length  of 
the  last  record  read  in  LWRIT  common  /SUPRVIS/,  and  then  buffers  in 
the  next  tape  record  into  th^  input  buffer. 

Subroutine  INBUFTP  is  illustrated  in  figure  22. 


10< 
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SUBROUTINE  INERRTP 


PURPOSE : 

To  repeat  a  tape  read  operation  which  terminated 
with  an  end-of-file  or  parity  error  in  an  effort 
to  correct  it. 

ENTRY  POINTS: 

INERRTP 

FORMAL  PARAMETERS: 

I  -  An  indicator  which  reveals  the  nature  of  the 
information  being  read  from  tape  when  the 
error  occurred 

I  =  2  if  the  minor  directory  was  being  read 
from  the  tape 

i  =  3  if  the  current  input  buffer  was  being 
filled 

COMMON  BLOCKS: 

BUFFERS,  DICTARY,  DSKHARD ,  ERRMESS,  ERRNUM, 
FILENOW,  LOCATOR,  MACHINE,  SUPRVIS,  TAPHARD 

SUBROUTINES  CALLED: 

WARNING 

CALLED  BY: 

ENDTAPE,  INBUFTP,  NEXT APE 

Method 


After  encoding  the  error  message  READ  PARITY  ERROR  OR  END  OF  FILE  ON 

UNIT  _ ,  INERRTP  calls  subroutine  WARNING  to  output  the  message  and 

other  error  information.  Then  it  attempts  to  repeat  the  buffer  in 
operation  which  caused  the  error.  First,  it  backspaces  the  tape  to  the 
beginning  of  the  record;  if  the  current  tape  record  is  to  be  reread,  each 
word  of  the  input  buffer  is  first  filled  with  the  message  PARITVER.  Then 
depending  on  whether  the  formal  parameter  I  is  2  or  3,  the  minor  directory 
(common  /DICTARY/)  cr  the  current,  tape  record  is  buffered  in  from  the 
current  spill  tape.  In  the  latter  case,  the  words  input  from  the  current 
tape  record  replace  the  words  PARITYER  in  the  input  buffer  if  the  operation 
is  successful. 

In  either  case  if  the  "buffer  in"  operation  is  not  successful,  the  tape- 
read  error  counter  is  incremented  and  the  process  described  above  is 
repeated  until  it  is  successful  or  the  number  of  reread  attempts  exceeds 
the  value  of  the  variable  MTIMFSR  in  common  /SUPRVIS/. 

If  MTIMESR  attempts  have  been  made  to  correct  the  read,  and  if  end-of-file 
or  parity  errors  are  still  encountered,  INERRTP  encodes  the  message  UNABLE 
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TO  READ  MINOR  DIRECTORY  ON  UNIT  _  if  I  is  2  or  IRRECOVERABLE  READ  ERROR 

ON  SPILL  TAPE  _  ON  UNIT  _  if  I  is  3;  then  it  calls  WARNING.  Further. 

if  I  is  2,  INERRTP  determines  whether  the  variable  specifying  the  maximum 
number  of  records  on  a  tape  (NREC)  has  been  changed  by  the  flawed  read 
operation  and  whether  the  number  of  disk  files  on  the  spill  tape  (NUMONME 
in  /DICTARY/)  is  less  than  or  equal  to  MAXFILE.  If  either  of  these 
conditions  is  not  satisfied,  NREC  or  NUMONME,  respectively,  is  reset. 

When  I  is  3,  INERRTP  determines  the  starting  and  ending  addresses  in  the 
current  disk  file  being  written  for  the  current  tape  record  and  writes  the 
information  on  the  standard  output  file. 

In  all  cases,  before  control  is  returned  to  the  calling  subprogram, 

INERRTP  resets  the  value  of  IAMOK,  the  error  recovery  indicator. 

Subroutine  INERRTP  is  illustrated  in  figure  23  . 
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Fig.  23.  Subroutine  INERRTP 
(Sheet.  1  of  3) 
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SUBROUTINE  NEXTAPE 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  read  the  minor  directory  from  the  next  spill 
tape. 

NEXTAPE 

None 

DICTARY,  LOCATOR,  MACHINE,  SUPRVIS,  TAPHARD 
INERRTP,  SKIPF1LE 
RE LOAD F 


Method 


After  determining  the  logical  unit  number  for  the  next  spill  tape 
(NOWUNIT) ,  and  saving  the  spill  tape  number  as  IAMSAVE,  NEXTAPE  rewinds 
NOWUNIT  and  uses  SK1PFILE  to  skip  the  first  file  if  the  first  spill  tape 
is  to  be  read  (because  the  first  file  of  the  first  spill  tape  contains 
the  major  tape  directory).  Then  NEXTAPE  buffers  in  the  minor  directory 
(common  /DICTARY/)  from  the  spill  tape.  INERRTP  is  called  (with 
arguments)  to  repeat  the  buffer  operation  in  the  event  an  end-of-file 
or  parity  error  is  encountered  during  this  process. 

When  the  minor  directory  has  been  read  from  the  tape,  the  actual  spill 
tape  number  (IAM)  and  label  (I DENT)  are  known,  so  NEXTAPE  compares 
these  values  with  those  it  expected.  If  the  values  of  IAM  and  I DENT 
are  not  the  expected  ones,  and  if  the  computer  operator  has  not  been 
instructed  to  ignore  mismatches  in  tape  labels  (via  sense  switch  1), 
NEXTAPE  then  instructs  the  operator  to  mount  the  requested  tape. 

Finally,  when  the  minor  directory  has  been  read  satisfactorily,  NEXTAPE 
writes  it  on  the  standard  output,  file  and  resets  IAM  to  IAMSAVE,  the 
expected  spill  tape  number. 

Subroutine  NEXTAPE  is  illustrated  in  figure  24. 
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SUBROUTINE  OUTBFDK 


PURPOSE : 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 

SUBROUTINES  CALLED: 
CALLED  BY: 


To  buffer  out  information  from  the  output  buffer 
to  disk. 

OUTBFDK 

None 

BUFFERS,  DISKIO,  DSKHARD,  ERRNUM,  FILENOW,  FILEREC, 
SUPRVIS 

OUTERDK 

OUTDF 


Method 


Subroutine  OUTBFDK  first  determines  whether  the  last  disk  write  operation 
terminated  with  an  irrecoverable  end-of-file  (EOF)  or  parity  error.  If 
it  did,  processing  control  returns  to  the  calling  subprogram.  Otherwise, 
the  status  of  the  last  operation  is  checked.  If  it  ended  with  an  EOF  or 
parity  error,  OUTERDK  is  called  to  attempt  recovery  from  the  error. 

Again,  if  the  error  is  irrecoverable,  processing  control  returns  to  the 
calling  subprogram,  OUTDF. 

As  soon  as  the  previous  disk  write  operation  is  successfully  completed, 
OUTBFDK  saves  the  current  disk  sector  address  and  determines  the  number 
of  physical  records  to  be  written  on  the  disk.  It  also  initializes  the 
indices  ISTREC  and  IENDREC,  which  locate  the  record  in  the  IOBUFF  array. 
Then  it  uses  WRITECK*  to  transfer  each  disk  physical  record  from  the 
IOBUFF  array  onto  the  disk;  each  write  operation  is  checked  for  a  possible 
parity  or  end-of-file  error.  If  one  occurs,  OUTERDK  is  called  to  attempt 
error  recovery.  Finally,  processing  control  returns  to  the  calling 
subprogram. 

Subroutine  OUTBFDK  is  illustrated  in  figure  25. 
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SUBROUTINE  OUTDF 


PURPOSE:  To  set  up  the  disk  files  for  output. 


ENTRY  POINTS: 

OUTDF 

FORMAL  PARAMETERS: 

None 

COMMON  BLOCKS: 

BUFFERS 

FILEREC 

SUBROUTINES  CALLED: 

OUTBFDK 

CALLED  BY: 

RELOADF 

DISKIO,  DSK1IARD ,  ERRNUM,  FILENOW, 
LOCATOR,  MACHINE,  SUPRVIS 

OUTERDk 


Method 


Subroutine  OUTDF  is  called  cnee  by  RELOADF  each  time  the  IOBUFF  array 
has  been  filled  from  a  spill  tape.  It  is  used  to  determine  which 
portions  of  the  disk  files  should  be  filled  from  IOBUFF  and  to  set  up 
the  files  for  output. 

Each  time  a  new  disk  file  is  to  be  loaded,  OUTDF  determines  how  many 
tracks  will  be  needed  and  uses  ALLOCATE*  and  SEEK*  to  allocate  the 
disk  tracks  and  to  position  the  disk  respectively.  Then  it  sets  the 
indices  ISTART  and  IEND  so  the  filehandler  label  is  put  out  when  OUTBFDK 
is  called. 

Wien  the  array  IOBUFF  does  not  begin  with  the  first  word  of  a  new  disk 
file,  OUTDF  first  checks  the  array  for  trailer  words  which  correspond 
to  the  name  of  the  current  disk  file  (NAMENOW) .  If  it  finds  a  trailer 
label,  it  sets  the  indices  ISTART,  IEND,  and  NWORDNW  in  such  a  way 
that  OUTBFDK  writes  the  remaining  portion  of  IOBUFF  corresponding  to 
the  current  disk  file  (excluding  the  trailer  label)  onto  the  disk  file. 
If  no  trailer  word  is  found  in  the  rest  of  the  buffer,  OUTDF  calls 
OUTBFDK  to  put  out  the  rest  of  the  buffer  onto  the  current  disk  file. 
Sometimes,  IOBUFF  will  contain  data  for  two  or  more  disk  files.  When 
this  situation  arises,  OUTDF  first  determines  which  words  go  onto  the 
first  file  and  uses  OUTBFDK  to  put  them  out  as  described  above,  Then 
it  uses  DEOF*  to  put  an  end-of-filc  mark  on  the  current  file  and  checks 
the  header  label  for  the  next  file.  If  not  all  of  the  header  words  are 
in  the  buffer,  no  further  data  are  output  to  disk  files  until  OUTDF  is 


*PFS  Disk  I/O  subroutines 


119 


called  again.  If  the  buffer  contains  the  whole  header,  OUTDF  sets 
up  the  next  new  disk  file  for  output  and  proceeds  to  empty  IOBUFF  onto 
this  new  file  in  the  manner  described  above. 

Whenever  end-of-file  or  parity  errors  are  encountered  by  OUTBFDK  in 
writing  from  IOBUFF  onto  disk  files,  OUTDF  uses  OUTERDK  to  attempt 
recovery  from  those  errors.  Processing  of  IOBUFF  continues  until  either 
all  of  IOBUFF  is  on  disk  or  until  no  more  disk  files  are  to  be  loaded. 

In  the  latter  case,  OUTDF  informs  the  computer  operator  that  the  last 
file  has  been  output  to  disk.  Then  processing  control  returns  to  the 
calling  program. 

Subroutine  OUTDF  is  illustrated  in  figure  26. 
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SUBROUTINE  OUTERDK 


PURPOSE: 

To  repeat  a  disk  file  write  operation 
attempt  to  correct  an  output  parity  or 
file  error. 

in  an 
end-of 

ENTRY  POINTS: 

OUTERDK 

FORMAL  PARAMETERS: 

I  -  Is  an  error  type  indicator 

I  =  1  if  end-of-file  error 

I  =  2  if  parity  error 

COMMON  BLOCKS: 

BUFFERS,  DISKIO,  DSKI1ARD,  ERUMESS,  ERRNUM, 
FILENOW,  LOCATOR ,  MACHINE,  SUPRVIS 

SUBROUTINES  CALLED: 

WARNING 

CALLED  BY: 

OUTBFDK 

Method 


Subroutine  OUTERDK  first  determines  whether  the  current  file  (named 
NAMENOW)  already  contains  an  irrecoverable  error.  If  it  docs,  no 
further  attempt  is  made  to  correct  ert'ors  in  this  file  and  processing 
control  is  returned  to  OUTBFDK. 

Otherwise,  error  counters  are  incremented  or  initialized  and  a  warning 
message  is  transmitted  to  the  standard  output  file  via  WARNING.  Then 
OUTERDK  calls  SEEK*  to  reposition  the  disk  and  WRITECK*  to  repeat  the 
attempt  to  write  the  record  onto  the  disk.  This  procedure  is  repeated 
until  the  write  attempt  is  successful  or  until  MTIMESW  (common 
/SUPRVIS/)  recovery  attempts  have  failed.  In  the  first  case,  the 
error  recovery  indicator  IRPERR  (common  /ERRNUM/)  is  set  to  zero.  In 
the  second  case,  messages  concerning  the  number  of  attempts  made  to 
correct  the  write  error  arc  written  on  the  standard  output  file  and  the 
computer  operator  is  informed  that  there  is  an  irrecoverable  write  error 
on  the  disk  file  and  that  it  is  being  abandoned.  Finally,  in  this 
second  case,  the  error  recovery  indicator  IRPERR  is  set  to  -100  if  the 
error  type  is  end-of-file  and  to  the  number  of  wovus  left  in  the  file 
if  the  error  type  is  parity. 

Subroutine  OUTERDK  is  illustrated  in  figure  27. 
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PROGRAM  DECLARES 


PURPOSE: 


ENTRY  POINTS : 


FORMAL  PARAMETERS: 


COMMON  BLOCKS: 


SUBROUTINES  CALLED: 


DECLARES  is  a  computer  program  processor  which 
is  used  to  insert  the  FORTRAN  common,  equivalence, 
and  type  statements  into  programs  which  process 
QUICK  data  base  tapes. 

DECLARES 

None 

OUTFILES,  DIRECTRY,  XPRT 

ALOCDIR,  EQ1JIV,  FI  LEI  INR,  NUMCF.T,  READDIR,  TERMTAPE 


Method 

Program  DECLARES  is  a  tool  designed  to  aid  the  NMCSSC  analyst  in 
maintaining  four  QUICK  programs  which  process  QUICK  data  base  tapes.  The 
programs  involved  are  BASEMOD  and  INDEXER  of  the  Data  Input  subsystem, 
PLANSET  of  the  Plan  Generation  subsystem,  and  program  READSUM  of  the  Data 
Output  subsystem. 

The  programming  techniques  and  FORTRAN  .coding  used  within  each  of  these 
programs  are  directly  related  to  the  structure  and  content  of  the 
directory  associated  with  the  QUICK  data  base.  Changes  in  the  directory 
which  involve  the  addition,  deletion,  or  change  in  the  ordering  of  the 
attributes  listed  therein,  will  always  require  a  programming  modification 
to  BASEMOD,  INDEXER,  PLANSET,  and  READSUM.  Program  DECLARES  provides  a 
relatively  simple  method  of  implementing  the  required  program  modifi¬ 
cations.  To  use  this  capability  a  set  of  DECLARES  command  cards  are 
inserted  in  the  program  source  code  (FORTRAN)  deck.  Program  DECLARES 
is  then  used  to  process  the  program  deck,  effect  the  required  modifi¬ 
cations,  and  prepare  an  output  tape  containing  the  modified  FORTRAN 
program.  The  modified  program  is  subsequently  compiled  using  standard 
procedures  and  is  ready  for  execution.  A  more  specific  explanation  of 
DECLARES  and  its  operation  is  presented  in  subsequent  paragraphs. 

Programs  BASEMOD,  INDEXER,  PLANSF.T,  and  READSUM  must  include:  the  common 
blocks  /PROCESS/,  /EDITAPE/,  and  /EUlTERM/;  equivalences  between  the 
mnemonic  attribute  identifiers  and  words  in  the  array  VALUE  (common 
block  /PROCESS/).;  and  the  type  declarations  for  these  attributes.  These 
equivalences  arc  changed  when:  (1)  the  order  of  the  attributes  in  the 
directory  is  modified;  or  (2)  the  directory  is  changed  by  adding  or 
deleting  attributes.  Mien  such  changes  are  made,  program  DECLARES  is 
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used  to  automatically  insert  the  common  statements,  current  equivalence 
statements,  and  associated  type  declarations  into  these  FORTRAN  programs. 

Tlie  input  to  DECLARES  is  a  pseudo  FORTRAN  source  program  which  contains 
commands  recognized  by  DECLARES.  Based  upon  these  commands,  DECLARES 
inserts  the  appropriate  common  statements,  equivalence  statements,  and 
type  declarations  in  the  source  program.  Additionally,  DECLARES  inserts 
"CALL  CHANGE"  statements  and  statements  to  assign  appropriate  values  to 
the  common  variable  NC  required  by  subroutine  CHANGE. 


The  action  of  DECLARES  is  strictly  linear  in  the  following  sense:  if  an 
instruction  read  by  DECLARES  docs  not  contain  one  of  the  DECLARES  com¬ 
mands,  its  imago  is  written  on  the  output  tape;  if  a  card  contains  one 
of  the  commands  CDECLAREX,  CDECLARE,  or  CHANGE,  the  appropriate  FORTRAN 
statements  are  written  on  the  output  tape.  This  requires  that  the 
DECLARES  commands  be  placed  in  the  user's  source  program  in  locations 
which  are  proper  for  the  FORTRAN  statements  generated  by  DECLARES.  The 
command  END  also  controls  the  execution  of  DECLARES  but  does  not  affect 
the  output  FORTRAN  program.  A  FORTRAN  source  program  which  is  to  be 
processed  by  DECLARES  may  contain  any  number  of  FORTRAN  subroutines, 
and  must  contain  the  PROGRAM,  SUBROUTINE,  END,  and  SCOPE  cards  which  are 
normally  required  by  the  FORTRAN  compiler  of  the  NMCSSC  CDC  3800  computer. 


Each  card  image  which  contains  one  of  the  four  commands  recognized  by 
DECLARES  is  regarded  as  eight  fields  of  10  columns  each;  alphameric 
words  are  left- justified  in  these  fields,  and  integers  are  right-justified. 
The  use  of  these  commands,  including  their  placement  in  the  FORTRAN 
source  program,  is  described  below. 

1 •  CDECLAREX  and  CDECLARE  Commands.  The  CDECLAREX  command  causes 
DECLARES  to  insert  in  the  FORTRAN  source  program  the  COMMON 
statements  for  common  blocks  /PROCESS/,  /EDITERM/,  and  /EDITAPE/. 
Additionally,  t lie  equivalence  statements  and  type  declarations 
for  the  attributes  whose  names  appear  in  the  fields  following 
CDECLAREX  are  inserted,  If  no  attributes  are  listed,  the 
equivalences  and  declarations  will  be  inserted  for  all  attributes 
in  the  data  base  directory.  Since  this  command  is  replaced  in 
the  FORTRAN  program  by  nonexecutable  statements,  it  must  precede 
all  executable  statements  in  the  program  or  subroutine  in  which 
it  occurs.  More  than  one  occurrence  of  CDECLAREX  in  a  program 
or  subroutine  will  result  in  a  compiler  diagnostic,  because 
DECLARES  would  cause  duplicate  common  statements  to  appear  in 
the  program  being  processed.  When  CDECLAREX  is  used  with  a  list 
of  more  than  seven  attributes,  the  CDECLARE  command  can  be  used 
to  obtain  the  equivalences  and  declarations  for  the  additional 
attributes.  Any  number  of  CDECLARE  cards  can  be  used;  they 
must  precede  all  executable  statements  in  the  program  in  which 
they  appear.  Both  CDECLAREX  and  CDECLARE  cards  are  terminated 
when  a  blank  field  is  encountered.  If  required,  a  blank  card 
must  lie  inserted  to  terminate. 
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2.  CHANGE  Command.  The  CHANGE  command  generates  a  call  on  subroutine 
CHANGE  with  NC  (in  common  block  /PROCESS/)  set  to  the  index  of 
the  word  corresponding  to  the  attribute  ATTR  in  the  array  VALUE. 
Whenever  the  value  of  a  data  base  attribute  is  changed  in  a 
program,  the  change  must  be  preceded  by  the  appropriate  CHANGE 
command. 

3.  END  Command.  The  END  command  causes  DECLARES  to  terminate. 

Tliis  card  .is  at  the  end  of  the  user's  FORTRAN  dock  following  the 
SCOPE  card,  and  must  be  followed  by  a  blank  card. 

As  indicated  in  figure  28,  processing  begins  by  establishing  the  input/ 
output  logical  unit  assignments.  These  assignments  arc  established  by 
an  input  parameter  card  or  set  to  their  default  values.  The  pertinent 
media  are:  the  FORTRAN  source  program  to  be  processed,  IOUT;  the  data 
base  tape,  Q'JIKDB;  the  output  FORTRAN  source  program  which  will  subse¬ 
quently  be  compiled,  IOUTDEC;  and  if  requested,  the  listing  medium,  IL1ST. 

Prior  to  processing  the  input  program,  subroutine  READD1R  is  called  and 
the  data  base  directory  is  read  in  its  entirety.  The  source  program  is 
then  processed  one  record  at  a  time.  If  the  record  from  the  source  deck 
contains  CDECLARE(X) ,  the  common  blocks  /EDITAPH/,  /EDI TERM/ ,  and 
/PROCESS/  are  inserted  and  written  onto  output  tape  JOUTDEC.  The  array 
GLOB,  which  is  used  to  keep  track  of  attributes,  is  cleared  to  zeros. 

If  the  record  from  the  source  deck  contain*  CDECLARE  (blank),  the  common 
blocks  are  not  written  to  tape  and  the  GLOB  array  is  not  cleared.  In 
either  case,  the  remainder  of  the  CDECLARE  card  is  searched  for  a  list 
of  attributes.  If  such  a  list  .is  present,  the  attributes,  one  at  a  time, 
are  matched  against  the  directory,  and  the  appropriate  statement 
equivalencing  that  attribute  to  a  position  in  the  VALUE  array  is  written 
onto  the  IOUTDEC  tape.  In  addition,  a  typo  statement  for  the  attribute 
(REAL  or  INTEGER)  is  written.  If  a  specific  list  of  attributes  is  not 
.included,  all  attributes  are  matched  to  the  directory,  and  the  equivalence 
and  type  statements  for  all  attributes  are  inserted  into  t.hc  source 
program. 

If  the  record  from  the  source  deck  contains  CHANGE  (attribute  name),  the 
following  code  is  inserted  into  the  source  program: 

NC=INDHX  (where  INDEX  is  the  position  of  the  attribute  in  the 
directory) 

CALL  CHANGE  (a  call  to  a  subroutine  to  save  the  present  value  of 
the  attribute). 

The  program  is  terminated  by  the  occurrence  of  the  word  END  at  the  be¬ 
ginning  of  a  record  or  an  end-of-file  if  the  input  source  program  is  on 
tape. 
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SUBROUTINE  EQUIV 


PURPOSE : 

ENTRY  POINTS: 
FORMAL  PARAMETERS: 


COMMON  BLOCKS: 
SUBROUTINES  CALLED: 


To  output  to  tape  IOUTDEC  the  equivalence  and 
type  statements  required  for  each  attribute 
defined  in  the  data  base  directory. 

EQUIV 

ATTNM  ••  The  attribute  name 

J  -  Flag  to  indicate  if  the  attribute  is  in 
directory:  0  if  not  found;  index  of 
attribute  if  found 

DIRHCTRY,  OUTFIIHS,  XPRT 

ITLE 


CALLED  BY:  DECLARES 


Method 

EQUIV  uses  function  ITLE  to  locate  the  index  of  the  requested  attribute 
in  the  directory.  If  the  attribute  is  not  found,  an  error  flag  is 
returned  to  the  calling  program.  If  the  attribute  is  located,  tho 
attribute  name  is  equivalcnccd  by  its  index  to  the  VALUE  array,  and  the 
statement,  is  written  to  tape.  The  type  of  variable  is  determined  by  the 
value  of  ICODE  in  the  directory,  arid  tho  appropriate  statement  is  written 
to  tape.  If  printing  has  been  requested,  all  items  written  to  tape  arc 
also  written  to  the  ILIST  medium. 

Subroutine  EQUIV  is  illustrated  in  figure  29. 
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PROGRAM  FILEDUMP 


PURPOSE: 

ENTRY  POINTS: 


To  print  specific  portions  of  a  magnetic,  tape, 
written  in  binary  mode,  or  a  disk  file. 

FILGDUMP 


FORMAL  PARAMETERS: 


COMMON  BLOCKS: 
SU3ROUTINES  CALLED: 


MODE  -  Tape  or  d i si.  file  designator 

ITP  -  (If  tape  file),  logical  tape  unit  number 

NAME  -  (If  disk  file),  logical  file  name 

IFF  -  First  file  tc  be  printed 

IFREC  -  First  record  to  be  printed  in  each  file 

IFW  -  First  word  to  be  printed  in  each  record 

ILF  -  Last  file  to  be  printed 

ILROC  -  Last  record  to  be  printed  in  each  file 

ILK  -  Last  word  to  be  printed  in  each  record 

ITP,  IROC,  DATA,  FILEIN 

NEXTFILE ,  NUMGET 


Method 


The  investigation  of  portions  of  a  data  file  can  be  a  tedious  proce'-.s 
for  two  reasons.  First,  printing  an  entire  file  is  time-consuming  .d 
costly.  Second,  manual  conversion  from  binary  data  to  other  modes  is 
time-consuming  and  error  prone.  Program  FIlEDUMP  is  used  to  print 
portions  -'f  a  tape  (written  in  binary  mode)  or  a  disk  file  in  a  readable 
form. 

The  portion  of  the  tape  or  disk  file  to  be  printed  is  specified  by  the 
user.  He  specifies  the  files,  records  within  files,  and  words  within 
records  to  be  printed.  The  user-input  parameters  to  this  program  are  the 
nine  formal  parameters  listed  above.  These  parameters  are  input  on  one 
data  card  in  the  order  listed  above. 

The  program  prints  each  word  of  the  requested  portion  of  the  file  in  four 
formats:  octal  (016),  fixed  point  (Tib),  floating  point  (E13.6),  and 
alphameric  (A8) . 

If  the  data  contain  illegal  alphameric  codes,  blanks  are  inserteo  for 
these  characters  in  the  alphameric  field.  As  a  further  aid,  each 
four-field  block  of  output  corresponding  to  one  data  word  is  numbered 
with  its  orde.  of  occurrence  within  the  record.  If  a  number  of 
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consecutive  data  words  are  identical,  the  program  does  not  print  each 
individual  word.  Rather,  it  prints  tl)c  contents  of  the  words  on9e  with  i 
a  message  listing  the  range  of  words  which  have  this  value., 

The  program  also  prints  the  actual  length  of  each  record.  The  maximum 
record  size  that  can  be  accommodated  is  20,000  words.  If  a  record 
equals  or  exceeds  this  length,  only  trie  first  20, 000*,, words  will  be 
printed,  and  the  program  will  print  the  message  RECORD  LENGTH  MAY  ,  1 
EXCEED  20000. 

If  a  read  parity  error  is  encountered  on  input,  the  program  will  attempt 
to  reread  the  record  six  times.  If  the  parity  error  persists, ' the  pro¬ 
gram  prints  the  message  PARITY  ERROR.  SKIP  TO  NEXT  RECORD  and  reads  the 
next  record  on  the  tape  or  file. 

Program  FILEDUMP  is  illustrated  in  figure  30.  :  ,  .  i 
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Fig.  30.  Program  FTLEDUMP 


CHAPTER  4 
GENERAL  UTILITIES 


This  chapter  contains  descriptions  of  a  variety  of  subroutines  and 
functions,  performing  various  tasks,  used  throughout  the  QUICK  system. 
Common  blocks  used  by  these  programs  are  described  in  appendix  A.  A 
list  of  the  programs  and/or  subroutines  which  call  each  utility  routine 
is  presented  in  appendix  D. 
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SUUROUTINU  ABORT 


PURPOSU ; 

l-N'l’RY  POINTS: 

FORMAL  PARAMHTHRS : 
COMMON  BLOCKS: 
SUBROUTINGS  CALI. I! I) : 


lintry  ABORT:  To  force 

I:n try  WARNING:  To  print 
possible 

ABORT,  WARNING 
None 

LRRCOPb ,  LRRMliSS 
Q8QLRROR 


a  core  dump  on  demand, 
a  warning  message  and 
error  diagnostics. 


Method 


This  subroutine  prints  error  diagnostics  and  an  optional  core  memory 
dump.  The  error  diagnostics  include: 

Iirror  message 

Contents  of  A  and  Q  registers 
Name  of  routine  (ABORT  or  WARNING) 

A  trace  of  the  chain  of  subprogram  calls  back  to  the  main  program. 

The  error  message  is  contained  in  common  /LRRMliSS/ .  This  block  consists 
of  two  arrays,  each  of  10-element  length,  1  ABORT  and  1WARN. 

The  message  to  he  printed  is  contained  in  array  I ABORT  for  entry  ABORT, 
and  IWARN  for  entry  WARNING.  The  calling  program  may  place  any  message 
in  these  arrays  subject  to  the  following  restrictions: 

1.  The  message  must  end  with  a  period  (.)  and  contain  no  imbedded 
periods  . 

2.  The  message  length  must  not  exceed  80  characters,  including  the 
terminating  period. 

If  entry  ABORT  is  used,  the  error  diagnostics  will  lie  followed  by  the 
phrase  IlXIiCUTION  DliLLTLP  and  the  job  will  terminate  with  a  core  memory 
dump . 

Gammon  /LRRCODl: /  consists  of  two  error  codes,  KABORT  and  KWARN  They  are 
preset  to  KAB0RT=0  and  KWARN=1.  A  zero  code  forces  job  termination  and 
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dump.  A  nonzero  code  forces  only  the  diagnostic  print  and  a  normal 
return.  Code  KABORT  is  used  by  entry  ABORT  and  KWARN  by  entry  WARNING. 

Subroutine  ABORT  is  illustrated  in  figure  51. 


Fig.  31.  Subroutine  ABORT 
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SUBROUTINE  ANOTHER 

PURPOSE : 

To  unload  a  magnetic  tape  reel  while  maintaining 

the  assignment  of  the  physical  unit. 

ENTRY  POINTS: 

ANOTHER 

FORMAL  PARAMETERS: 

NTOGO  -  Logical  tape  unit  number 

COMMON  BLOCKS: 

None 

SUBROUTINES  CALLED: 

UNLOAD 

Method 

This  assembly  language  subroutine  uses  the  system  macro  UNLOAD  to  rewind 
and  unload  a  magnetic  tape  reel.  The  formal  parameter  is  set  to  the  logical 
tape  unit  number  of  the  tape  to  be  unloaded.  The  physical  unit  assignment 
is  not  released.  Therefore,  another  tape  reel  can  be  mounted  on  this  unit. 

Subroutine  ANOTHER  is 

illustrated  below  in  figure  32. 

Set 

Address 

Pointers 


Issue 

UNLOAD  Macro 
Specifying  No 
Tope  Unit  Release 


RUT URN 


Fig.  32.  Subroutine  ANOTHER 


FUNCTION  ATN2PI 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 


To  calculate  the  arc  tangent  function  over  the 
interval  0  to  2tt. 

ATN2PI 

Y,  X  (.floating  point  numbers) 

None 

ATANF 


Method 


This  function  calculates  the  arc  tangent  of  the  value  (Y/X) .  The  arc 
tangent  returned  to  the  calling  program  lies  within  the  interval  from  0 
to  2tt.  The  operating  system  function  ATANF  returns  the  principal  value 
of  the  arc  tangent?  i.e.,  over  the  interval  -it/ 2  to  +tt/2.  ATN2PI  uses 
ATANF  to  compute  the  principal  value  of  the  arc  tangent  of  Y/X.  The  signs 
of  X  and  Y  are  investigated  to  determine  the  quadrant  of  the  arc  tangent. 
The  principal  value  is  then  modified  to  return  a  value  within  the  correct 
quadrant . 

Function  ATN2PI  is  illustrated  in  figure  33. 


SUBROUTINE  CHANGE 


PURPOSE: 


To  prepare  for  changing  the  value  of  any  attribute 
in  the  data  base  item  (record)  currently  being 
processed  so  that  globally  defined  attributes,  if 
changed,  are  restored  to  their  original  value  in 
the  following  items. 


ENTRY  POINTS: 


FORMAL  PARAMETERS: 


CHANGE 

None 


COMMON  BLOCKS:  PROCESS 

SUBROUTINES  CALLED:  None 


Method 

If  the  index  (NC)  of  the  attribute  to  be  changed  is  already  contained  in 
the  list  of  input  attribute-value  pairs,  the  subroutine  returns  to  the 
calling  program.  Otherwise,  the  index  is  stored  in  INITEM  in  the  location 
equal  to  twice  the  number  of  pairs  plus  one,  and  the  value  is  stored  in 
the  following  location.  The  logical  array  DEF(NC)  is  set  to  one  to  show 
that  the  attribute  with  index  NC  is  defined.  The  number  of  pairs  NI  is 
incremented  by  one  and  the  number  of  entries  by  two.  This  assures  that, 
if  the  attribute  to  be  changed  is  globally  defined,  it  will  be  restored 
to  its  original  value  when  a  new  item  is  read  in. 

Subroutine  CHANGE  is  illustrated  in  figure  34. 
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i 


Fig.  34.  Subroutine1  Cl  IAN  Gl: 
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FUNCTION  DEL LONG 


PURPOSE: 

ENTRY  POINTS: 


To  compute  the  signed  difference  between  two 
longitudes. 

DELLONG 


FORMAL  PARAMETERS: 


A  -  A  floating  point  longitude 
B  -  A  floating  point  longitude 


COMMON  BLOCKS:  None 

SUBROUTINES  CALLED:  None 


Method 


The  input  longitudes  are  expressed  as  decimal  degrees  measured  in  a 
westerly  direction.  West  longitudes  are  in  the  range  0-180  degrees; 
east  longitudes  are  in  the  range  180-360  degrees.  Longitudes  0  and  360 
are  the  Greenwich  Meridian.  This  function  returns  the  value  of  the 
difference  between  the  two  longitudes.  The  sign  of  the  value  is  deter¬ 
mined  as  follows: 

Positive  if  A  >.  B 
Negative  if  A  <  B. 

Function  DELLONG  is  illustrated  in  figure  35. 
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RETURN 


V. 


') 


I’un  ct  .ion  DELEON  (I 


FUNCTION  D IFF LONG 


PURPOSE: 


ENTRY  POINTS: 
FORMAL  PARAMETERS: 


COMMON  BLOCKS: 
SUBROUTINES  CALLED: 


To  compute  the  difference  between  two  longitudes 
whose  sign  is  determined  by  the  shorter  direction 
of  travel  from  the  first  meridian  to  the  second. 

D IFF LONG,  DtFFLNG* 

XI  -  Floating  point  longitudes 
X2  -  Floating  point  longitudes 

None 

None 


Method 


The  input  longitudes  lie  in  the  interval  0-360  degrees  with  west  longitudes 
in  the  range  0-180  degrees  and  east  longitudes  in  the  range  180-360  degrees. 
Longitudes  0  and  360  define  the  Greenwich  Meridian.  This  Junction  returns 
a  value  whose  absolute  value  is  equal  to  the  number  of  degrees  of  longitude 
traversed  in  using  the  shorter  great  circle  route  from  meridian  XI  to 
meridian  X2.  The  sign  is  positive  if  the  direction  of  travel  is  eastward 
and  negative  otherwise. 

Function  DIFFL0NG  is  illustrated  in  figure  36. 


•Duplicate  entry  for  D1FFL0NG. 
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FUNCTION  DISTF 


PURPOSE : 

.  To( compute  great  circle  distances  in  nautical 
miles. 

ENTRY  POINTS: 

•  DISTF 

FORMAL  PARAMETERS: 

LAT1  . - 
L0NG1  - 
LAT2  - 
LONG 2  - 

Latitude  of  point  T 

Longitude  of  point  .1  ■ 

Latitude  of  point  2 

Longitude  of  point  2 

COMMON  BLOCKS: 

None 

SUBROUTINES  CALLED: 

None 

i 

:  ! 

Method  i 

I 

The  formal  parameters  are  all  type  real.  The  coordinates  ar.e  input  in 
degrees  with  south  latitude  and  east  longitude  coordinates  being 
negative.  (Lambda  format  for  longitudes'  is  also  acceptable.) 

If  the  difference,  in  longitude  is  less  than  ~2. 8  degrees,  a  straight- 
line  approximation  to  the  great  circle  route  is  used.  Otherwise,  1 
standard  law  of  cosinesfor  a  spherical  triangle  is  applied  to  compute 
the  great  circle  distance.  The  radius  of  the  ertfcth  is  assumed  to  bp 
3437.74677  nautical  miles.  The  units  of  the  result  are  nautical  miles. 

Function  DISTF  is  illustrated  in  figure  37.  1  . 
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Pig.  37.  Function  DISTF 
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FUNCTION  DSTF 


PURPOSE : 


ENTRY  POINTS: 
FORMAL  PARAMETERS: 


COMMON  BLOCKS: 


To  compute  the  distance  over  a  straight-line 
approximation  to  a  great  circle  route  between 
two  points. 

DSTF 

XLAT  -  First  point  latitude 
YLAT  -  Second  point  latitude 

DLONG  -  Longitudinal  difference  between  the  points 
None 


SUBROUTINES  CALLED:  None 


Method 

The  formal  parameters  are  all  type  real.  They  are  in  degrees  in  standard 
Lambda  format. 

This  function  computes  a  straight-line  approximation  to  the  great  circle 
distance  between  the  points  defined  by  the  formal  parameters.  The 
Pythagorean  law  is  then  used  to  calculate  the  distance  along  that 
approximation. 

The  radius  of  the  earth  is  assumed  to  be  3437,74677  nautical  miles.  The 
units  of  the  result  are  nautical  miles. 

Function  DSTF  is  illustrated  in  figure  38. 
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START 


Fig,  38.  Function  1JSTF 


SUBROUTINE  ENDDATA 


PURPOSE : 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 


To  terminate  the  data  file. 
ENDDATA 

NT1  -  Tape  to  be  terminated 
I TP ,  TWORD 
TERKTAPE*,  WRWORD* 


Method 

This  subroutine  terminates  an  output  data  base  tape  by  writing  the  word 
ENDDATA  on  it  and  calling  TERMTAPE.  ENDDATA  is  illustrated  in  figure  39 
below. 


Fig.  39.  Subroutine  ENDDATA 


*See  Filehandler  subroutines. 


SUBROUTINE  ERA2E 


PURPOSE:  To  erase  six  inches  on  a  magnetic  tape  to  reserve 


space 

tape. 

for  future  use  or  to  skip  a  bad  segment  of 

ENTRY  POINTS: 

ERAZE 

FORMAL  PARAMETERS: 

I  TP  - 

Logical  tape  unit  number 

COMMON  BLOCKS: 

None 

SUBROUTINES  CALLED: 

ERASE 

Method 


This  subroutine  uses  the  system  macro  ERASE  to  erase  six  inches  from  a 
magnetic  tape.  The  formal  parameter  is  the  logical  unit  number  of  the 
tape  to  be  erased.  The  subroutine  will  erase  the  next  six  inches  of  the 
tape,  and  leave  the  tape  in  position  to  write  beyond  the  erased  portion. 

Subroutine  ERAZE  is  illustrated  below  in  figure  40. 


Pig.  40.  Subroutine  ERAZl; 
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FUNCTION  GETCLOCK 


PURPOSE : 

ENTRY  POINTS; 

FORMAL  PARAMETERS; 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 


To  return  the  current  time  in  floating  point 
minutes . 

GETCLOCK,  GBTCLK  (duplicate  entry) 

X  -  A  dummy  parameter 

None 

TIMEF 


Method 


This  subroutine  calls  the  system  function  TIMEF  to  return  the  current 
time  in  milliseconds.  A  division  by  60,000  is  used  to  return  the  current 
time  in  floating  point  minutes. 

Function  GETCLOCK  is  illustrated  below  in  figure  41. 


Fig.  41.  Function  GETCLOCK 
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FUNCTION  GETDATE 


PURPOSE : 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 


To  obtain  the  current  date. 
GETDATE 

X  -  A  dummy  parameter 

None 

DATE 


Method 

This  function  calls  the  system  macro  DATE  to  obtain  the  current  date  in 
the  format  MM/DD/YY.  When  called  in  a  FORTRAN  program,  this  function 
will  return  the  date  in  a  floating  point  format. 

Function  GETDATE  is  illustrated  below  in  figure  42. 


Fig,  42.  Function  GETDATE 
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SUBROUTINE  GETLIMIT 


PURPOSE : 

ENTRY  POINTS: 

FORMAL  PARAMETERS : 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 


To  return  the  limits  of  available  memory  in  both 
banks  of  the  CDC  3800 

GETLIMIT 

None 

BNKBNDS 

MEMORY 


Method 


This  subroutine  is  called  by  subroutine  STORAGE  to  return  the  limits  of 
available  memory  in  both  banks  of  the  CDC  3800.  The  limits  are  returned 
in  common  /BNKBNDS/  with  the  lower  limits  preceding  the  upper  limits. 
That  is,  the  four  words  of  storage  in  this  common  block  are  allocated  in 
order:  lower  limit  in  bank  0,  lower  limit  in  bank  1,  upper  limit  in 
bank  0,  and  upper  limit  in  bank  1.  The  system  macro  MEMORY  is  used  to 
determine  these  limits. 

Subroutine  GETLIMIT  is  illustrated  in  figure  43. 
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SUBROUTINE  GETVALU 


PURPOSE: 


To  convert  unformatted  input  data  into  attribute- 
value  form. 


ENTRY  POINTS: 
FORMAL  PARAMETERS: 


COMMON  BLOCKS: 


GETVALU 


INPUT 

NDATA 

NAMES 

INVALU 

INDEX! 

1NDEX2 

INDEX3 

MORE 


An  array  containing  the  input  data 
Number  of  data  items  found  in  input  array 
Names  of  variables  found  in  input  array 
Values  assigned  to  variable  in  input 
array 

Value  of  first  judex  of  array 
Value  of  second  index  of  array 
Value  of  third  .index  of  array 
Input  termination  indicator 


None 


SUBROUTINES  CALLED:  I WANT,  NUMGET 


Method 


This  subroutine  receives  as  input  an  array  INPUT  which  contains  SO  BCD 
characters  of  information.  This  input  is  unformatted  but  consists  of  a 
series  of  variable  names,  array  indices,  and  values.  Subroutine  GETVALU 
prepares  lists  of  the  variables  contained  in  the  input,  their  array 
indices,  if  necessary,  and  their  values. 

Consider  the  input  array  as  an  SO-cohuim  card.  GETVALIJ  considers  the 
card  to  be  broken  into  fields  as  follows: 

1.  Parameter  Field.  Delimited  by  commas  (,)  with  first  field  be¬ 
ginning  .in  column  i  and  last  field  terminated  by  column  SO, 

Each  parameter  field  may  contain  a  number  of  subfiolds  containing 
the  name  of  the  parameter,  the  array  indices  for  the  parameter, 
and  the  value  of  the  parameter. 

2.  Name  Suhflcld.  This  stibficld  gives  the  name  of  the  variable 
represented  .in  the  parameter  field.  If  the  name  subfield  is 
missing,  the  subroutine  assumes  that  the  current  parameter  field 
is  for  the  succeeding  element  of  the  array  processed  in  the  pre¬ 
ceding  parameter  field.  The  name  stibficld  begins  at  the 
beginning  of  the  parameter  field.  The  first  nonblank  character 


cannot  be  numeric.  Imbedded  blanks  are  ignored.  This  subficld 
is  terminated  by  either  an  equals  sign  (=)  for  simple  variables, 
or  by  an  open  parenthesis  (()  for  array  variables. 

3.  Index  Subficld.  This  subfield  gives  the  indices  for  an  array 
variablo.  If  it  is  not  present,  the  variable  is  assumed  to  bo  a 
simple  variable.  This  subfield  must  follow  a  name  subficld.  It 
begins  with  an  open  parenthesis  (()  and  ends  with  a  close  paren¬ 
thesis  ())..  Within  the  parentheses,  the  array  indices  arc- 
separated  by  commas.  The  maximum  number  of  indices  is  three. 

4.  Value  Subficld.  This  subficld  may  be  of  two  types,  alphameric 
or  numeric.  An  alphameric  field  is  begun  and  terminated  with 
an  asterisk  (*).  There  may  be  no  imbedded  asterisks  iri  the 
field.  The  maximum  number  of  characters  (including  blanks)  in 
an  alphameric  field  is  16.  A  numeric  field  consists  of  the 
characters  0,  1,  2,  3,  4,  5,  6,  7,  8,  9,  +,  -,  .,  H,  or  D. 

Imbedded  blanks  are  ignored.  The  maximum  number  of  nonblank 
characters  in  a  numeric  field  is  16. 

5.  Termination  Subficld.  This  subfield  consists  of  a  dollar  sign 
($)~  Its  appearance  In  a  namo  subficld  as  the  first  nonblank 
character  will  terminate  processing  of  the  input  data.  In 
addition,  the  value  of  the  termination  indicator  MORI:  is  set  to 
zero. 

Subroutine  GETVALU  processes  these  fields  to  produce  the  following  output: 

1.  NDATA .  Number  of  valid  parameter  fields  processed  from  the 
input  data. 

2.  NAMES .  An  array  containing  the  names  of  the  variables  as 
determined  from  the  mime  subficlds.  Maximum  name  length  is  eight 
characters . 

3.  INVALU.  An  array  containing  t ho  characters  in  the  value  subficlds. 
There  are  two  elements  in  the  INVALU  array  for  each  element  in 

the  NAMES  array.  For  the  variable  name  in  the  .1th  position  in 
the  NAMliS/array,  the  corresponding  value  is  contained  in  the 
(2*J)-1  qiul  (2*.J)  positions  of  the  INVALU  array. 

4.  INDEX! ■  ^An  array  containing  the  value  of  the  first  index  of  an 
array.  For  simple  variables,  its  value  Is  one. 

5.  INDEX2  and  INPEX3 .  Arrays  used  similarly  to  INDEX  1. 


6.  MORE ■  A  termination  indicator,  set  to  0  if  a  dollar  sign  (S) 
appears  as  the  first  nonblank  character  of  a  name  subficld;  set 
to  1  otherwise. 
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The  values  returned  by  subroutine  GETVALU  are  in  BCD  code  in  the  following 
formats : 

1.  Alphameric .  Left-justified ;  blank  filled  on  the  right  if  field 
.length  is  less  than  16. 

2.  Numeri c .  Right- justified  with  no  imbedded  blanks;  blank  rilled 
on  the  left  if  field  length  is  less  than  16. 

In  this  format,  the  value  field  (TUVALU)  may  be  decoded  using  standard 
FORTRAN  formats  (I,  F,  A,  E,  D). 

l'.'hen  an  array  is  input,  a  number  of  successive  elements  can  be  input  with¬ 
out  repetition  of  the  name  and  index  subfields.  If  GETVALU  encounters  a 
value  subfield  prior  to  a  name  subfield  within  any  parameter  field,  it 
assumes  that  the  current  value  subfield  refers  to  the  array  element 
immediately  following  the  element  used  in  the  preceding  parameter  field. 
However,  the  first  parameter  field  in  each  input  array  (or  on  each  card) 
must  have  a  name  subfield.  Omission  of  this  subfield  in  the  first  parameter 
field  will  be  flagged  as  an  error. 

Subroutine  GETVALU  is  illustrated  ,n  figure  44. 


Note:  Error  checking 
is  included  in  the 
processing  of  each  field. 


START 


Fig.  44.  Subroutine  GHTVAI.U 
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FUNCTION  IGET 


1 

PURPOSE :  To  unpack  a  data  item  from  a  storage  area 

according  to  a  specified  format. 


ENTRY  POINTS: 

IGET 

' 

FORMAL  PARAMETERS: 

KEY 

-  A  key  word  generated  by  the  function 
KEYMAKE  '  i 

INDEX 

-  An  index  to  the  array  IARR;  the  value 
of  IGET  will  be  extracted  from 
IARR(INDEX) 

IARR 

-  The  array  from  which  the  data  will  be 
extracted  t 

COMMON  BLOCKS: 

DATPK 

SUBROUTINES  CALLED: 

ABORT 

1 

Method 

die  variable  KEY  is  compared  with  ISVKEY  (the  value  of  KEY  on  the 
previous  call  to  IGET).  If  they  are  not  equal,  then  the  KEY  is  unpacked 
and  the  variables  ITYPE,  NBITS,  and  NSHIFT  are  set  (see  description  of 
function  KliYMAKE) .  If  KEY  and  ISVKEY  are  equal,  then  it  is  assumed  that 
ITYPE,  NBITS,  and  NSHIFT  have  been  set  by  a  previous  call  on  IGET. 

If  the  data  are  unpacked  (i.c.,  ITYPE-4) ,  then  IGET  is  set  equal  to 
IARR(INDEX)  and  the  routine  returns.  If  ITYPE^4,  then  TARR(INDEX)  is 
shifted  right  NSHIFT  bits,  and  now  the  rightmost  NBITS  are  placed  in 
I  OUT. 

If  ITYPE=i,  then  IGET  is  set  equal  to  I01FT,  and  the  routine  returns.  If 
1TYPH=1,  then  the  proper  sign  is  attached  to  the  value  10UT  before 
setting  the  value  of  IGET  to  IOUT  and  returning  control  to  the  calling 
program . 

If  ITYPE  does  not  equal  1,  2,  or  4 ,  then  the  subroutine  ABORT  is  called. 
Function  IGET  is  illustrated  in  figure  45.  ■ 


Fi  p, .  45.  Function  I  GUT 
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SUBROUTINE  INITEDIT 


PURPOSE : 


ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 


To  initialize  for  editing  or  processing  data  base 
files . 

INITEDIT,  INITHDT  (duplicate  entry) 

IT  -  Input  data  base  file 
DIRECTRY,  E DITAPE,  PROCESS 
READDIR,  WRITEDIU 


Method 


This  subroutine  is  the  basic  initialization  routine  for  any  processing 
of  the  data  base  on  unit  IT,  either  for  ordinary  retrieval  processing, 
or  for  editing  to  create  one  or  more  output  data  bases. 

In  the  event  that  there  are  one  or  more  output  data  bases,  NOUT  in  common 
block  /EDITAPE/  must  be  filled,  prior  to  calling  this  routine,  with  the 
number  of  output  bases  to  be  created,  and  array  ITOUT  of  the  same  block 
must  contain  the  unit  numbers  assigned  to  the  output  data  base  files.  If 
NOUT  is  not  set  prior  to  calling  INITEDIT.  it  automatically  assumes  the 
value  0,  and  no  output  files  will  be  created. 

In  addition,  if  the  unit  specified  by  IT  is  negative,  it  is  a  signal  to 
F1LEIINR  that  the  input  file  is  a  disk  file. 

'Hie  basic  actions  of  this  subroutine  are  therefore  to  read  the  directory 
file  from  the  input  data  base  and  to  output  the  directory  on  the  speci¬ 
fied  output  data  base  files  (if  any).  In  addition,  the  values  of  all 
attributes  in  memory  are  set  to  their  default  values  as  specified  in  the 
directory,  and  the  definition  (DEE)  and  global  definition  (LGLOB)  flags 
are  all  set  to  0  (FALSE). 

Subroutine  INITEDIT  is  illustrated  ii.  figure  46. 
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ig.  4(i.  Subroutine  1N1TI.D1 


SUBROUTINE  INPITEM 


PURPOSE : 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 


To  read  items  from  a  data  base  file. 

INPITEM,  NEXTITEM,  NCXTITM* 

None 

EDITAPE,  EDITERM,  I  TP,  PROCESS,  TIVORD 

ENDDATA,  OUTWORDS,  RDARRAY** ,  RDWORD**,  TERMTAPE** 


Method 


INPITEM  is  used  to  input  the  first  item  (record)  of  a  data  base  prior  to 
executing  the  processing  logic.  Subsequent  items  beyond  the  first  are 
read  in  by  calls  on  a  second  entry  point,  NEXTITEM  or  NEXTITM. 

The  action  of  both  these  routines  is  as  follows.  When  called,  the  data 
base  contained  on  unit  INTP  (common  block  /EDITAPE/)  is  read  until  the 
next  item  has  been  stored  in  memory  with  the  values  of  all  attributes 
associated  with  it.  Any  global  definitions  or  undefinitions  which  occur 
prior  to  this  item  are  automatically  placed  in  force  by  these  routines. 

After  execution  of  INPITEM  or  NEXTITEM,  the  resulting  state  of  memory  in 
common  block  /PROCESS/  is  as  follows.  The  array  VALUE  is  filled  with 
the  correct  value  of  every  attribute  which  is  currently  defined  and  with 
the  default  value  of  all  currently  undefined  attributes.  The  logical 
array  DEF  has  the  value  TRUE  for  all  currently  defined  items  and  the 
value  FALSE  for  all  currently  undefined  items.  Finally,  logical  array 
LGLOB  has  the  value  TRUE  for  all  attributes  which  are  currently  globally 
defined  and  the  value  FALSE  for  the  remainder. 

In  addition,  if  there  are  any  output  files,  all  global  definitions  and 
undefinitions  are  automatically  transmitted  to  the  set  of  output  data 
base  files  at  the  same  time  that  they  arc  processed  here. 

Subroutine  INPITEM  is  illustrated  in  figure  47. 


♦Duplicate  entry  for  NEXTITEM. 
**See  filehandler  subroutines. 
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SUBROUTINE  IN'TERP 


PURPOSE :  To  find  by  interpolation  the  point  (SR,  TR) 

located  sotnc  given  fraction  of  the  distance 
from  the  point  (SI,  Tl)  to  the  point  (S2,  T2) . 

ENTRY  POINTS:  INTERP 

FORMAL  PARAMETERS:  None 

COMMON  BLOCKS:  POLITE 

SUBROUTINES  CALLED:  INTERPGC 


Method 

The  parameters  which  control  the  interpolation  are  contained  in  common 
/POLITE/  as  follows, 

1 .  Input  parameters  : 

51  -  latitude  of  first  point 
Tl  -  longitude  of  first  point 

52  -  latitude  of  second  point 
T2  -  longitude  of  .second  point 

FACTOR  -  fraction  of  distance  to  be  interpolated 

2.  Output  parameters: 

SR  -  latitude  of  interpolated  point 
TR  -  longitude  of  interpolated  point 

All  latitudes  and  longitudes  arc  carried  internally  in  the  QUICK  system 
in  the  following  format: 

North  latitude  0.  (equator)  to  +00.  (North  Pole) 

South  latitude  0,  (equator)  to  -90.  (South  Pole) 

Last  longitude  180.  to  360.  (Greenwich  Meridian) 

West  longitude  0.  (Greenwich  Meridian)  to  180 

The  variable  FACTOR  determines  the  fraction  of  the  distance  from 
the  first  point  to  the  second  that  is  equal  to  the  distance  from  the 
first  point  to  the  interpolated  point. 
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Subroutine  INTERP  first  determines  whether  the  fraction  FACTOR  is 
within  the  interval  0  <  FACTOR  <1.  If  not,  the  result  (SR,  TR)  is 
sot  to  (SI,  Tl)  when  FACTOR  (  0,  or  to  FS2,  T2)  when  FACTOR  >1,  and 
the  subroutine  returns. 

When  FACTOR  is  within  range,  however,  the  interpolation  is  to  be 
performed.  First,  the  difference  in  longitude  of  the  two  input  points, 
T12  =  T2  -  T1 ,  is  computed.  If  that  difference  is  greater  than  2.8 
degrees,  INTERP  calls  the  utility  subroutine  INTERPGC  to  perform  the 
interpolation  along  the  great  circle  route  from  (SI,  Tl)  to  (S2,  T2) , 
and  then  returns. 

If  /Tl 2/  is  less  than  2.8  degrees,  INTERP  performs  a  straight-line,  or 
Mercator,  interpolation  between  (SI,  Tl)  and  (S2,  T2)  by  putting: 

SR  =  SI  +  FACTOR (S2  -  SI)  and 
TR  =  Tl  +  FACTOR |T2  -  Tl). 

When  the  resultant  TR  is  less  than  Zero,  360  degrees  are  added  to  it; 
similarly,  360  degrees  are  subtracted  from  a  TR  which  is  greater  than 
360  degrees. 

Subroutine  INTERP  is  illustrated  in  figure  48. 
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SUBROUTINE  INTERPGC 


PURPOSE : 


ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 


To  perform  interpolation  over  great  circle  routes. 
It  determines  a  point  (SR.  TR)  located  a  given 
fraction  FACTOR  of  the  distance  from  the  point 
(SI,  Tl)  to  (S2,  T2)  where  the  coordinates  arc 
latitude  and  longitude, 

INTERPGC,  i'NTRPGC  (duplicate  entry) 

None 

POLITE,  A,  B,  C 
ATN2PI ,  DISTF 


Method 

The  parameters  which  control  the  interpolation  are  contained  in  common 
/POLITE/  as  follows: 

1.  Input  parameters: 

51  -  latitude  of  first  point 
Tl  -  longitude  of  first  point 

52  -  latitude  of  second  point 
T2  -  longitude  of  second  point 

FACTOR  -  fraction  of  distance  to  be  interpolated 

2.  Output  parameters: 

SR  -  latitude  of  interpolated  point 
TR  -  longitude  of  interpolated  point 

All  latitudes  and  longitudes  arc  floating  point  variables  giving  the 
data  in  degrees  in  standard  Lambda  format.  The  variable,  FACTOR, 
determines  the  fraction  of  the  distance  from  the  first  point  to  the 
second  that  is  equal  to  the  distance  from  the  first  point  to  the  inter¬ 
polated  point. 
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For  tho  purpose  of  this  description,  we  assume  now  a  right-handed 
coordinate  system  shown  in  figure  49,  whore  the  angle  a  is  the  longi¬ 
tude,  measured  east  from  the  zero  meridian  (located  along  the  X-axis) 
Hero  the  latitude  is  given  by  the  angle  <S.  Then  the  unit  vector  r. 


associated  with  the  latitude  <$.  and  longitude  u.  is  given  by: 


r 


i 


(COS  0^  cos 
sin  a.  cos 
sin  iS ^ 


6. 

l 


Fig.  49.  Coordinate  System  for  IN'IT.RI'CC 


Assume  we  are  given  the  unit  vector  rj  located  at  (a  6^),  and  the  unit 
vector  r ^  determined  by  (a^t  6 ,  and  the  angle  0  between  them.  We  wish 
to  find  a  unit  vector  r  in  the  plane  determined  by  r^  and  r,,  some  given 
angle  from  r^.  To  do  this  we  make  use  of  the  following  three  vector 
relations: 

Oj  x  r2)  •  r  =  0 

r.  r  =  cos  0j  i 

*  *  >  .« 

r^  ♦  r  =  cos  &2 
where  02  =  0  -  0^  . 


These  relations  may  be 

expanded 

as  follows : 

>  1 

■ 

(r23r12-r13r22)x 

+  (r21r13‘ 

rllr23)y  + 

^rllr22"rl2r2p  2  = 

0 

ru  X 

+ 

r12  y  + 

r'l3  2  ' 

cos  e 

r21  X 

r22  y  + 

r23  Z 

cos  0 2 

where  r  =  (x,y,z).  This  equation  has  a  unique  solution  in  x,  y,,  and  >  z 
provided  6  /  0  or  0  /  ir,  since  the  determinant: 

2 

(r1  x  r2)  =  sin  0  ' 

is  not  equal  to  0.  Now  since. the  resultant  vector  r  is: 


r  = 


then  the  desired  point  (a,  6)  is  given  by: 


6  =  sin_1Z 
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whore  the  value  of  the  arc  tangent  is  not  necessarily  its  principal 
value.  (Function  ATN2PI  is  used  to  calculate  this  value.) 

To  obtain  0  and  0 ^  when  FACTOR  is  known,  observe  that: 

if:  D  is  the  great  circle  distance  from  the  point  (o^,  5^)  to  the 
point  (o^,  6 2)  and  J 

R  is  the  radius  of  the  earth 

then:  0  =  D/R 

01=  FACTOR*  0 

Subroutine  INTFRPGC  is  illustrated  in  figure  SO, 
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SUBROUTINE  IPirr 


PURPOSE : 

ENTRY  POINTS: 
FORMAL  PARAMETERS: 


COMMON  BLOCKS: 
SUBROUTINES  CALLED: 


To  pack  a  given  data  item  into  a  storage  area 
according  to  a  specified  format. 

•I  PUT 

KEY  -  A  key  word  generated  by  the  function 
KEYMAKE 

INDEX  -  An  index  to  the  array  IARR;  IVAL  will  be 
packed  into  the  word  IARR(TNDHX) 

IVAL  -  The  data  word  which  is  to  be  packed 

IARR  -  The  array  into  which  these  data  arc  to 
be  packed 

DATPK 

None 


Method 


The  variable  KEY  is  compared  with  ISVKEY  (the  value  of  KEY  on  the 
previous  call  to  IPUT) .  If  they  are  not  equal,  then  the  KEY  is  unpacked, 
and  the  variables  ITYPE,  NBITS,  and  NS1IIFT  are  set  (see  description  of 
function  KEYMAKE).  If  KEY  and  ISVKEY  are  equal,  then  it  is  assumed  that 
ITYPE,  NBITS,  and  NSlil FT  have  been  set  by  a  previous  call  on  IPUT. 

If  the  data  are  not  to  be  packed  (i.e.,  ITYPE=4) ,  then  the  variables  IN 
and  MS K  are  set  equal  to  IVAL  and  0,  respectively.  If  ITYPE/4,  then  IN 
is  set  equal  to  the  rightmost  NBITS  of  IVAL  and  shifted  left  MSI II FT 
bits.  MSK  is  set  equal  to  MAST  (NB  ITS ) ,  shifted  left  NSI1IIT  bits,  and 
complemented . 

The  bits  of  IARR(INI)EX)  ./here  the  data  are  to  be  stored  are  set  equal  to 
zero.  The  variable  IN  (which  is  IVAL  shifted  to  its  proper  position)  is 
now  added  to  1ARR( INDEX) . 

Subroutine  IPUT  is  illustrated  in  figure  51. 
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Pig-  51.  Subroutine  I  PUT 


182 


FUNCTION  ITLE 


PURPOSE : 


ENTRY  POINTS: 
FORMAL  PARAMETERS: 


COMMON  BLOCKS: 
SUBROUTINES  CALLED: 


To  compare  an  input  value  with  values  in  a 
specified  array;  to  return  an  index  of  the 
first  match  found,  and  to  return  zero  if  no 
match  is  found. 

ITLE 

NX  -  The  value  for  which  a  match  is  to  be  found 
NAR  -  The  array  with  which  NX  is  to  be  compared 
NMB  -  The  number  of  words  to  be  scanned  in  NAR 

None 

None 


Method 


The  input  search  value  is  compared  with  each  member  of  the  array  to  be 
scanned.  If  no  match  is  found,  a  value  of  zero  is  returned.  Otherwise, 
the  index  of  the  element  of  the  array  which  exactly  matches  is  returned. 
In  the  case  of  more  than  one  match,  the  smallest  index  value  is  returned. 

Function  ITLE  is  illustrated  in  figure  52. 
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Fig.  52.  Function  ITLE 
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FUNCTION  I  WANT 


PURPOSE :  To  determine  the  position  of  an  item  in  an  array, 

The  search  is  modified  by  specifying  items  not  to 
bo  searched. 

ENTRY  POINTS:  I WANT 


FORMAL  PARAMETERS: 

NEED 

-  The  item  to  be  matched 

IAR 

-  The  array  to  be  searched 

ISTART 

-  The  first  element  in  the  array 
searched 

to  be 

IEND 

-  The  last  element  in  the  array 
searched 

to  be 

COMMON  BLOCKS: 

None 

SUBROUTINES  CALLED: 

None 

Method 

This  function  searches  array  IAR  from  element  ISTART  to  element  I  END  to 
find  a  match  for  NEED.  At  each  occurrence  of  an  element  of  IAR  with  the 
value  a  1 R * ;  i.e.,  one-character  BCD  code  for  asterisk  right- justi Fied 
with  zero  fill  to  the  left,  the  list  is  not  searched  for  NEED  until  after 
the  next  occurrence  of  the  right- justified  asterisk.  This  search  method 
corresponds  to  ignoring  alphameric  value  subfields  as  defined  by  sub¬ 
routine  GETVALU.  'Hie  value  returned  by  the  function  is  the  index  to  the 
element  of  IAR  which  is  equal  to  NEED.  If  no  element  meets  the  pre¬ 
scribed  conditions,  the  function  returns  the  value  IEND+1 

Function  IWANT  is  illustrated  in  figure  53. 
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Fig.  53.  Function  I WANT 
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FUNCTION  KEYMAKE 


PURPOSE :  To  generate  a  KliY  word  Tor  input  to  subroutine 

I  PUT  or  function  I GET. 

I-NTRY  POINTS:  K/iYMAKIi 


FORMAL  PARAMETERS :  ITYPE  -  Specif  ies  the  type  of  packing  or 

~  "  unpacking 

=1  Signed  integer 
=2  Unsigned  integer 
-4  Unpacked  word 


NSII1  FT 

-  The 
bit 

number 
of  the 

of  bits  from  the  rightmost 
packed  word 

NBITS 

-  The 

number 

of  hits  in  the  packed  word 

COMMON  BLOCKS: 

None 

SUBROUTINES  CALLED: 

None 

Method 

Function  KEYMAKE  generates  a  key  word  which  contains  the  necessary 
packing  and  unpacking  information  for  input  to  I PUT  or  I  OFT.  The  format 
of  the  key  word  is  as  follows: 


Number  of  Bits 

33 

6 

6 

3 

Unused 

Nidi I  IT 

~  Nil  IIS 

i  type 

The  variable  (IV I )  is  set  equal  to  NSIIIIT  and  shifted  left  sis  hits.  NIU'IS 
is  added  to  1WP,  and  IIVU  is  shifted  left  three  hits.  ITYPI-.  is  now  added 
to  T IV D  and  the  result  placed  in  KEYMAKE,  which  value  is  returned  to  tlie 
calling  program. 

Function  KFYMAKF  is  illustrated  in  Figure  F>1. 


i  s . 


g.  54.  Function  KEYMAKE 
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FUNCTION  LOCF 


PURPOSE : 

To  retrieve  the  machine  address  of  an  item  (e.g. 
LOGHEAD  uses  LOCF  to  determine  the  limits  of 
core  to  bo  used  in  rile  reading  and  writing]. 

ENTRY  POINTS: 

LOCF 

FORMAL  PARAMETERS: 

X  -  The  name  of 
be  returned 

the  variable  whose  address  is  to 

COMMON  BLOCKS: 

None 

SUBROUTINES  CALLED: 

None 

Method 


This  assembly  language  function  determines  the  address  of  the  variable 
named  in  the  formal  parameter  by  retrieving  it  from  the  word  containing 
the  parameters  for  the  call  to  LOCF.  The  address  is  returned  right- 
justified  in  the  accumulator.  The  bank  address  is  removed  before  placing 
the  value  of  the  machine  address  in  the  accumulator.  Thus,  function  LOCF 
will  not  return  the  bank  address  of  an  item. 

Function  LOCF  is  illustrated  below  in  figure  55. 


Fig.  55.  Function  LOCI-' 


SUBUOUTlNi:  LOCRIiAl! 


PURPOSH: 


liNTRY  POINTS: 
FORMAL  PARAMFTHRS: 


CW1MON  BLOCKS : 
sun  ROUT  I  NFS  CALLliD: 


To  read  i n format i on  from  a  file  into,  or  write 
from,  a  core  area  specified  by  beginning  and 
ending  addresses,  using  the  f i lenand ler . 

LOCRFAI),  I.OCKR1TF,  LOCKRIT* 

A  -  The  name  of  the  last  word  stored  in  the  block 
of  core  to  be  read  or  written 

H  -  The  name  of  t ho  first  word  stored  in  the 
block  of  core  to  he  —’ad  or  written 


None 

LOCI',  kuakkaY,**  KRARRAY** 


Method 

This  subroutine  uses  function  LOCF  to  determine  the  limits  of  core  to 
he  used  in  the  file  reading  or  writing.  The  reading  and  writing  array 
.subroutines  in  the  f'ilehandler  (RDARRAY  and  KRARRAY)  are  then  used  to 
transfer  the  data  into  or  out  of  this  Mock  of  storage.  Note  that 
proper  usage  of  this  subroutine  requires  a  knowledge  of  the  method  of 
storage  allocation  by  FORTRAN.  The  programmer  should  also  lie  aware  of 
the  proper  use  of  the  filchandlcr. 

Subi  utine  LOC'U'.AI)  is  illustrated  in  figure  50. 


’Uuglicafc  entry  for  I.OCKR IT T. . 
**Soo  I'l  jehandlrr  subroutines. 


Hurry  HOCkliAH 


lint  rv  I.OCIVU ITi 
lint  rv  I.OCilVR  IT 


Subroutine  I  i'.i'u  \; 


I 


I 

I 

SUBROUTINE  NEWUNIT  ' 


PURPOSE: 
ENTRY  POINTS: 


To  unload  a  magnetic  tape  reel  and  release  the 
physical  unit  assignment. 

I 

NEWUNIT 


.FORMAL  PARAMETERS:  NTOGO  -  Logical  tape  unit  number 

COMMON  BLOCKS:  '  None 


SUBROUTINES  CALLED:  UNLOAD 


Method  ' 

SdSun?o^bly  1  an8Uage  subroutine  uses  the  system  macro  UNLOAD  to  rewind 
and  unload  a  magnetic  tape,  reel;  and  release  the  physical  unit  assignment 
The  formal  parameter  is  set  to  the  logical  tape  unit  number  of  ?h^  Jape 
to  be  unloaded  and  released.  ,  p 

Subroutine  NEWUNIT  is  illustrated  below  in  figure  57.  ,  '  ■ 
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SUBROUTINE  NEXTFILE 


PURPOSE: 


ENTRY  POINTS: 


To  skip  to  the  end  of  the  current  file  on  magnetic 
tape  or  disk,  while  keeping  track  of  the  number 
of  records  skipped. 

NEXTF]  IN¬ 


FORMAL  PARAMETERS :  None 


COMMON  BLOCKS:  TTP,  IRF.C,  FI  LEIN 

SUBROUTINES  CALLED:  None 


Method 


This  subroutine  takes  the  logical  unit  of  the  magnetic  tape  to  be  read 
from  common  block  /1TP/,  which  contains  one  variable,  the  logical  tape 
unit  number.  If  this  number  is  negative,  the  file  is  on  the  disk,  and 
the  name  given  by  the  variable  in  common  /FILEIN/  is  used  to  retrieve  the 
data  from  the  disk.  Common  /IRHC/  contains  one  variable  which  is  the 
number  of  records  currently  read  from  the  file.  Subroutine  NOXTFILE 
merely  buffers  in  physical  records  from  the  tape  or  disk  until  it  reaches 
the  end  of  file.*  During  this  buffering  process,  the  number  of  records 
read  is  added  to  the  variable  in  common  /IREC/.  After  reaching  the  er.d 
of  file,  the  subroutine  returns  with  the  file  positioned  to  read  the  first 
record  after  the  end  of  file. 

Subroutine  NEXTFILE  is  illustrated  in  figure  58. 


*NEXTF 1 LE  positions  the  I/O  device  to  the  next  record  following  the  end 
of  the  current  file.  Although  t ho  physical  location  of  data  areas  on 
a  random  access  device  may  be  in  a  nonsequential  order,  the  disk  I/O 
routines  on  the  CPC  3800  order  all  sectors  in  a  disk  file  sequentially. 
Thus,'  "next"  record  is  defined  for  disk  files  in  the  correct  manner  for 
NH.XTF  1  l.l. . 
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J-'UNCTION  NUMGLif 


PURPOSE : 


ENTRY  POINTS: 
FORMAL  PARAMETERS: 


COMMON  BI.OOKS: 


To  convert  the  BCD  contents  oi‘  an  array  into  a 
signed  int'gcr  number. 

NUMGliT 

NIN  -  The  name  of  the  array  or  variable  where 
the  input  data  are  stored 

NCI  I  -  The  number  of  characters  to  be  scanned  (the 

3800  restricts  integers  to  lb  decimal  digits) 

N  on  c 


SUBROUTINES  CALLED:  None 


Method 


Function  NUMCLT  (figure  59)  converts  integer  data,  which  have  been  read  into 
an  array  using  alphameric  (A8)  format  for  each  word,  into  signed  integer 
numbers  with  blanks  ignored;  i.  e.,  suppressed.  The  number  of  characters1 
to  be  scanned  and  the  array  or  variable  name  are  specified  in  the  calling 
sequence.  If  no  sign  appears,  the  number  is  assumed  positive.  However, 
the  sign  may  appear  anywhere  in  the  specified  input  field,  and  NUMGliT  places 
it  at  the  beginning  of  the  number.  If  two  signs  appear  within  the  same 
field,  the  last  sign  is  assumed  correct. 

When  integer  data  are  read  in  with  1  format,  standard  FORTRAN  has  a  number 
of  limitations.  The  most  annoying  and  time-consuming  in  preparing  and 
keypunching  data  for  a  program  are  the  requirements  that  integers  be  right- 
justified  and  that  the  sign  (if  any)  precede  the  number.  NUMGET  overcomes 
these  restrictions.  It  is  not  intended  to  be  an  error-correcting  routine 
but  rather  a  convenience  and  a  time-saving  routine.  Whereas  a  normal  read 
using  integer  (I)  format  of  a  number  such  as  77/7  or  77M7  would  abort 
the  computer  run,  NUMGliT  allows  the  program  to  continue,  translating  the 
number  in  each  example  to  77.  Thus  the  burden  cf  checking  the  accuracy 
of  the  data  remains  on  the  analyst  who  has  input  the  data- -but  he  is  able 
to  check  an  entire  run  at  once,  rather  than  having  his  run  abort  on  the 
first  illegal  field  encountered. 

The  program  will  scan  as  many  contiguous  characters  as  the  calling  program 
has  requested  (formal  parameter  NCI!) ,  moving  down  t he  array  NIN  (dimensioned 
as  1  in  the  subroutine,  since  the  real  size  of  this  array  is  rlci-ermined  by 
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the  array  size  in  the  calling  program),  eight  characters  at  a  time*  until 
NOI  has  been  satisfied.  Since  the  3800  h,as  only  a  48-bit  word  and  the 
largest  integer  that  can  be  translated  accurately  is  2-1  (15  decimal 
digits),  the  practical  limitation  on  NCH  should  be  such  that,  excluding 
blanks,  the  translated  integer  will  fit  within  the  word  size. 

Perhaps  the  most  common  example  for  NUMGET  would  be  the  one  where  the 
field  width  has  been  defined  to  be  10  characters  (normally  read  as  110  for¬ 
mat).  When  using  NUMGET,  the  calling  program  would  read  the  field  into 
an  array  of  size  two  using  a  format  of  A8,A2,  NUMGET  would  be  called  with 
NCH  set  to  10,  and  all  10  characters  would  be  translated  to  an  integer. 


*Lach  word  of  the  3800  may  contain  at  most  eight  BCD  characters. 


196 


I  s 

Character 

BCD? 
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subroutine  order 


PURPOSE: 


ENTRY  POINTS: 


I'CPMAL  PARAMETERS: 


COMMON  H LOOKS: 
SUBROUTINES  CALLED: 


To  return  the  indices  of  the  numeric  order  of 

the  elements  in  any  array. 

ORDER 

I  A  -  An  array  of  arbitrary  values  whose 
elements  arc  to  be  indexed 

INDEX  -  Tlie  array  which  will  contain  the  indices 
to  FA  in  increasing  numerical  order 

N  -  The  number  of  elements  in  IA  to  be 
indexed 

None 

None 


Method 

Given  an  arbitrary  array,  1A,  of  N  elements,  subroutine  ORDER  returns  in 
another  array,  INDEX,  the  indices  of  the  elements  of  IA  in  their 
numerical  order.  That  Is,  INDEX(i)  contains  the  index  of  the  smallest 
element  in  IA,  1NDEX(2)  the  index  of  the  next  smallest,  euuI  so  on. 

1NDEX(N)  contains  the  index  of  the  largest  element  in  IA. 

There  are  restrictions  on  the  values  of  the  formal  parameters.  The 
number  of  elements  to  be  indexed,  N,  must  be  greater  than  zero.  The 
array  to  ho  ordered  and  the  indexed  array  must  both  have  at  least  this 
many  elements.  In  addition,  the  subroutine  will  not  operate  correctly 
unless  the  array  to  bo  ordered  and  the  index  array  occupy  different  areas 
in  storage.  The  array  to  be  ordered,  IA,  may  tic  in  either  fixed  point  or 
floating  point  format.  The  indices,  of  course,  will  be  returned  in  fixeJ 
point  format. 

Subroutine  ORDER  is  illustrated  in  figure  60. 
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Subroutine  ORDl'R 


SUBROUTINE  OUT ITEM 


PURPOSE : 

ENTRY  POINTS: 

FORMAL  PARAMETERS; 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 


To  output  the  current  item  (record)  to  the  data 
base  file  being  created, 

OUT ITEM 

None 


EPITAPH,  I TP,  PROCESS,  TWORD 
WRWORD* 


Method 


Subroutine  OUTITEM  uses  the  filehandler  subroutine  WRWORD  to  write  the 
current  item  (record)  on  the  data  base  file  specified  by  JOUT  in  common 
block  /EDITAPE/.  The  output  file  and  the  data  to  be  output  are  communi¬ 
cated  to  WRWORD  via  common  variables  ITP,  of  common  block  /TTP/,  and 
ITWORD,  of  common  block  /TWORD/. 

As  indicated  in  figure  61»  OUTITEM  first' causes  the  number  of  attribute 
value  pairs  (variable  NI,  of  common  block  /PROCESS/)  associated  with  the 
item  to  be  output.  Two  calls  to  WRWORD  are  then  made  to  output  each 
attribute-value  pair,  i.e.,  the  index  of  the  attribute  within  the  VALUE 
array  (common  block  /PROCESS/)  is  output  followed  by  the  attribute  value, 
Mien  all  pairs  have  been  written,  control  is  returned  to  the  calling 
program, 

Subroutine  OUTITEM  is  illustrated  in  figure  61. 


*Sec  filehandler  subroutines. 
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61.  Subroutine  OIXTITEM 


SUBROUTINE  OUTWORDS 


PUR POSH : 

I-NTRY  POINTS: 

FORMAL  PARAMhTHRS : 
COMMON  BLOCKS: 

subroutini-s  callhi>: 

Method 

Subroutine  OUTWORDS 
to  write  one  word  on 

Subroutine  OUTWORDS 


Used  in  processing  a  data  base  file  to  write 
one  word  on  each  of  the  specified  output  files. 

OUTWORDS,  OUTWRDS* 

None 

nniTAPi:,  itp 
WRU'ORD** 


i s  called  by  the  utility  routine  IMPlTIiM  (NRXTlThM) 
each  output  file  specified  in  common  block  /liDITAlMi/. 

is  illustrated  in  figure  62. 


*Duplicatc  entry  for  OUTWORDS, 

**See  fiJehandlcr  subroutines. 
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START 


SUBROUTINE  PAGESKP 


PURPOSE : 

To  eject 
standard 

ENTRY  POINTS: 

PAGESKP, 

FORMAL  PARAMETERS: 

None 

COMMON  BLOCKS: 

None 

SUBROUTINES  CALLED: 

None 

to  the  top  of  the  next  page  on  the 
output . 

PAGT.SK  IP* 


Method 


This  subroutine  uses  the  standard  carriage  control  character  (i.e.,  1)  in 
column  1  to  eject  to  the  top  of  the  next  page  on  the  standard  output.  Sub 
routine  PAGTSKP  is  illustrated  in  figure  63  below, 

*  Duplicate  entry  for  PAGESKP 


Fig.  63.  Subroutine  PAGESKP 


smtuouTiNi-;  piuti:m 


I.J£n<Y_  JOINTS ; 

K)K>!A1.  I’ARAMIThRS:' 

SUbl'OUTlM.S  CALLhD : 


To  print  the  defined  attribute-value  pairs  of 
the  data  i>ase  item  currently  being  processed  in 
a  readable  format. 

i'k  rrr.M 

None 

lUkbCTuv,  I'kociiss 
None 


Methoj.1 

This  subroutine  is  used  in  preparing  a  printout  of  the  data  base.  When 
called  (e.g.,  by  PRNTBASUJ,  this  subroutine  examines  all  attributes  in 
the  directory  to  determine  if  they  are  defined  for  the  data  base  item 
currently  being  processed.  If  so,  the  attribute  name  and  value  are 
stored  in  print  arrays.  If  the  definition  is  global,  the  pair  is  marked 
by  an  asterisk  (*) .  When  six  pairs  have  been  stored,  the  line  is  printed. 
This  process  is  repeated  until  all  pairs  have  been  printed. 

Subroutine  I’klTliM  is  illustrated  in  figure  04. 


SIIBItnUTlNH  Pl'NTIiASli 


PURPOSE :  To  print'  the  ill  rectory  in  readable  format. 

To  print  the  attribute-value  pairs  defined  for 
each  data  base  item. 

ENTRY  POINTS:  PRNTBASE ,  PRNT8AS , *  PRNTBSH* 

FORMAL  PARAMETERS;  NTP  -  Logical  unit  number  of  the  data  base 

file  which  is  to  be  printed 

COMMON  BLOCKS:  EIHTAPE,  KDITHRM 

SUBROUTINES  CALLED:  INITAPE, **  INITHDIT,  INP1TEM.  NEXT1TEM,  PRlTIiM, 

PRNTDIRC 


Method 

This  subroutine  prints  out  in  readable  format  the  entire  base  contained 
on  tape  unit  NTP,  It  prints  out  the  entire  directory  using  subroutine 
PRNTDIRC.  Then  each  item  in  the  data  base  is  printed  by  successive  calls 
on  subroutine  PR  ITEM.  For  each  item  the  name  of  every  attribute  defined, 
either  globally  or  locally,  for  that  item  is  printed  together  with  its 
value.  In  addition,  an  asterisk  is  printed  beside  each  attribute  whose 
value  is  currently  determined  by  a  global  definition. 

PRNTBASE  first  saves  NOUT,  the  number  of  output  tapes,  and  then  sets  it 
to  zero.  Then  through  a  series  of  calls  on  INITHDIT,  PRNTDIRC,  1NPITEM, 
and  PRITHM,  the  entire  data  base  is  printed.  NOUT  is  restored  lo  its 
original  value,  and  the  routine  exits. 

Subroutine  PRNTBASL  is  illustrated  in  figure  65. 


‘Duplicate  entries  for  PRNTBASL. 
“See  fi  1  chandler  subroutines. 


Call  I MI TAPE 
to  Initialize 
Filehandler 


Call 

INPITEM 
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SUBROUTINE  PRNTDIRC 


PURPOSE : 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 


To  print  the  directory  contents  in  readable 
format. 

PRNTDIRC,  PRNTDRC  (duplicate  entry) 

None 

DIRECTRY 
PAGES KP 


Method 


Subroutine  PRNTDIRC  is  called  to  print  the  contents  of  the  data  base 
directory.  The  directory  consists  of  a  list  of  all  the  attributes  which 
can  he  used  to  describe  the  data  items  defined  in  the  data  base.  In 
addition  to  the  mnemonic  name  assigned  to  the  attribute,  the  directory 
includes  information  about  the  range  of  values  which  may  be  assigned 
to  the  attribute  and  the  value  which  is  given  it  when  it  is  not 
specifically  defined  for  an  item;  i.e,,  the  default  value.  Information 
is  also  included  for  checking  the  data  input  to  the  data  base. 

When  called,  subroutine  PRNTDIRC  (figure  66)  prints  all  of  the 
information  contained  in  the  directory  for  each  attribute.  This 
includes  the  attribute  name,  print  format,  checking  code,  default 
value,  and  the  attribute  value  range  limits  or  a  list  of  allowed 
values  specified  for  the  attribute.  The  arrays  which  are  examined 
and  printed  by  PRNTDIRC  are: 

1.  ATTNAME :  This  array  contains  the  name  of  each  defined  attribute. 

TEe  position  of  the  name  in  this  array  becomes  the  index  to  all 
other  arrays  holding  information  about  this  attribute  and  is  the 
index  which  is  stored  with  the  attribute  value  in  the  item  portion 
of  the  data  base  tape.  A  data  base  file  is  completely  dependent 
on  the  order  of  attributes  in  the  directory. 

2.  I  FORMAT :  This  array  contains  the  conversion  format  (e.g.,  18)  to 
convert  the  value  of  the  attribute  to  output  (printer)  format. 

3.  I  CODE :  The  array  code  numbers  (between  one  and  seven)  which 
specify  the  type  value  (c.g.,  floating  point  number)  for  each 
attribute  and  the  method  of  checking  (range,  list,  or  none).  The 
codes  currently  used  are  used  are  indicated  below. 


i  com; 

TYIM:  VAl.Ui; 

CHUCKING 

l 

floating  point  numeric 

Range  (M1N-MAXJ 

2 

floating  point  numeric 

LIST 

3 

fixed  point  numeric 

Range  (MIN-MAX) 

4 

fixed  point  numeric 

LIST 

5 

Alphamori c 

LIST 

6 

Alphamcri c 

NOCIIliCK  (none  required) 

7 

Special  (see  Directory 
Conventions  below) 

Range  (MIN-MAX) 

4.  N1  ,  N2  (FN1 ,  FN2) :  These  arrays  contain  either  the  minimum  or 
maximum  values  for  the  attributes  in  the  ease  of  range  checking, 
or  the  beginning  and  ending  indices  to  a  list  of  all  possible 
values  for  the  attributes  that  specify  list  checking.  These  arrays 
arc  unused  when  no  checking  is  called  for. 

5.  Df FAULT:  This  array  contains  values  which  are  to  be  associated 
with  any  attribute  when  it  is  not  defined  for  an  item. 

6.  LISTCHHK:  This  logical  array  is  set  to  "true"  for  list  checking 
and  False  for  range  checking  or  when  no  checks  are  required. 

7.  LISTVA1.S :  Tins  array  contains  the  acceptable  values  for  an 
attribute  to  be  used  in  list  checking.  In  this  mode  of  checking, 
the  attribute  value  is  restricted  to  a  specified  list,  for 
example,  acceptable  values  of  the  attribute  SI  1)1:  might  he  limited 
to  RbD  and  Bl.Ub. 

The  subroutine  first  retrieves  the  attribute  name  and  determines  if 
there  is  a  default  value  associated  with  it.  if  there  is,  the 
default  value  is  encoded  using  the  format  statement  for  the  selected 
attribute.  If  there  is  no  default  value,  the  work  BLANK  is  sub¬ 
stituted  for  the  value  in  the  print  line. 

'lhe  routine  next  ascertains  if  list  checking  has  been  specified.  If 
it  has,  the  word  1. 1  ST  is  inserted  in  the  output  line.  If  list  checking 
was  not  applicable,  the  routine  determines  if  "no  checking" 

(i.e.,  ICOI>L  =  6)  was  specified  for  the  attritubc.  If  so,  the  word 
NOCHFCK  is  inserted  in  the  output  line.  if  neither  the  list  nor 
"no  cheeking"  options  were  specified,  it  is  presumed  that  range 
checking  is  desired.  In  this  case,  the  minimum  and  maximum  values 
specified  for  t he  attribute  value  arc  retrieved  from  the  arrays 
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N1  and  N2.  These  values  are  printed  using  the  format  obtained  from 
the  IFORMAT  array.  Should  N)  und/or  N2  be  found  to  contain  blanks, 
the  word  BLANK  is  inserted  in  the  print  line.  The  printed  line, 
assembled  by  one  of  the  above  procedures,  is  of  the  form:  attribute 
name,  conversion  format,  code  for  checking,  default  value,  first  check 
word,  and  second  check  word, 


Fig,  60.  Subroutine  PRNTDIRC J 
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SUBROUTINE  PRNTDTA 


PURPOSE: 

ENTRY  POINTS: 


To  print  the  contents  of  a  data  base  file  in  a 
compact  and  readable  format. 

PRNTDTA,  PRNTDATA  (duplicate  entry) 


FORMAL  PARAMETERS:  NT1  -  Logical  unit  number  of  the  file  containing 

the  data  base 


COMMON  BLOCKS: 


DIRECTRY,  EDITAPE,  EDITERM,  PRNTCOMM,  PROCESS 


SUBROUTINES  CALLED: 


INTTAPE,*  INITEDIT,  INPITEM,  NEXTITHM,  PAGESKP , 
PRNTDIRC,  PRNTPGE 


Method 

This  subroutine  prints  the  contents  of  any  data  base  file  in  as  compact 
and  readable  a  format  as  possible. 

Attributes  which  have  the  same  value  for  items  on  a  print  page  are  printed 
along  with  the  value  in  a  COMMON  ATTRIBUTE  block  at  the  top  of  the  page. 
Attributes  which  have  different  values  for  items  on  a  print  page  are 
printed  in  columns  in  an  OTHER  ATTRIBUTE  block  beneath  the  COMMON  ATTRIBUTE 
block.  The  column  headings  are  the  attribute  names,  with  each  item  re¬ 
quiring  a  separate  print  line.  If  an  attribute  is  defined  for  some  but 
not  all  items  on  the  page,  a  BCD  slash  (/)  is  inserted  in  the  undefined 
locations.  If  an  attribute  is  undefined  fdr  all  attributes  on  a  page,  it 
is  not  printed.  A  print  page  is  complete  and  another  begun  when: 

(1)  the  number  of  items  on  a  page  reaches  35,  (2)  the  number  of  columns 
in  the  OTHER  ATTRIBUTE  block  exceeds  11,  or  (3)  a  class  change  occurs. 

Subroutine  PRNTDTA  is  illustrated  in  figure  67. 


See  f.ilehandler  subroutines. 


SUBROUTINE  PRNTPGE 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 


To  perform  the  printing  of  data  base  information 
as  directed  by  subroutine  PRNTDTA. 

PRNTPGE ,  P SNTP AGE  (duplicate  entry) 

J  -  Number  of  attributes  defined  on  this  page 

DIRECTRY,  PROCESS,  PRNTCOMM 

PAGES KP 


Method 


This  subroutine  prints  a  page  of  data  base  information,  as  directed  by 
subroutine  PRNTDTA.  The  variables  in  common  /PRNTCOMM/  are  interpreted 
to  determine  the  number  of  "common"  and  "other"  attributes.  Those  are 
printed  on  the  standard  input  in  the  following  format. 

Attributes  which  have  the  same  value  for  items  on  a  print  page  are  printed 
along  with  the  value  in  a  COMMON  ATTRIBUTE  block  at  the  top  of  the  page. 
Attributes  which  have  different  values  for  items  on  a  print  page  are 
printed  in  columns  in  an  OTHER  ATTRIBUTE  block  beneath  the  COMMON 
ATTRIBUTE  block.  The  column  headings  arc  the  attribute  names,  with  each 
item  requiring  a  separate  print  line.  If  an  attribute  is  defined  for 
some  but  not  all  items  on  the  page,  a  BCD  slash  (/)  is  inserted  in  the 
undefined  locations. 


Subroutine  PRNTPGE  is  illustrated  in  figure  68. 
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Fig.  68.  Subroutine  PRNTPCIi 


SUBROUTINE  READD J  R 


PURPQ31: : 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 

COMMON  BLOCKS: 
SUBROUTINES  CALLED: 


To  read  a  directory  contained  on  a  data  base  file 
into  common  block  /DIRECTRY/. 

RE ADD IK 

CTAPX  -  Logical  unit  number  of  the  file  containing 
the  directory 

DIRECTRY,  LRRORM,  ITP,  TiVORI) 

ABORT,  RDARRAY*,  RDIVORD* ,  SLTRIiAD* 


Method 


Subroutine  READDIR  reads  the  directory  from  unit  JTAPX,  which  is  assumed  to 
contain  a  standard  data  base,  into  memory  in  common  block  /DIRECTRY/. 

This  subroutine  is  shown  in  figure  69.  The  routine  !"egins  by  setting  the 
buffer  number  ITP  to  indicate  the  logical  unit  number  of  the  file  containing 
the  directory.  The  filehnndler  subroutine  SETREAD  is  then  called  to  initial¬ 
ize  this  file  for  reading.  Subroutine  RDIVORD  is  then  called  twice  to  read 
the  first  two  words  from  the  directory.  The  first  word  is  stored  in  IDEE 
and  specifies  the  number  of  attributes  contained  in  the  directory,  The  sec¬ 
ond  word  is  stored  in  LASTLIST  and  indicates  the  number  of  entries  in  the 
value  list  array  LISTVALS.  The  routine  then  computes  the  number  of  words  in 
the  logical  arrays  LISTCIIEK  and  GLOB  (equr vaionceu  to  LuGl  and  u)G2). 

A  series  of  calls  on  subroutine  RDARRAY  are  then  made  to  read  in  the  contents 
of  the  arrays  described  below. 

1.  ATTNAME :  This  array  contains  the  name  of  each  defined  attribute. 

T ho  position  of  the  name  in  this  array  becomes  the  index  to  all 
other  arrays  holding  information  about  this  attribute  and  is  the 
index  which  is  stored  with  the  a. tribute  value  in  the  item  portion 
of  the  data  base  tape.  A  data  base  file  is  ■  •onipletcly  dependent 
on  the  order  of  attributes  in  the  directory. 

1  FORMAT:  This  array  contains  the  conversion  format  (e.g.  ,  IS)  to 
convert  the  Value  of  the  attribute  lo  output  (printer)  form. it. 

A.  I'.'HI’I  :  1  he  array  code  ntanlu  rs  (lu'iioa.  a  one  and  -a  mi  I  which  specify 
t  he  t  \  pc  value  (e.g.,  :  lolling  pent  numbe  ;■ !  lor  <.  .u  ii  attiiiuitc  and 

"'ii  I  ;  i  :■  a  ::F  1  e  :  .1  d 1  r. 'll  1  I  : 


the  method  of  checking  (range,  list,  or  none). 

4.  nth AULT :  This  array  contains  values  which  are  to  be  associated 
with  any  attribute  when  it  is  not  defined  for  an  item. 

5.  N 1 ,  N2 :  These  arrays  contain  either  the  minimum  or  maximum  values 
for  the  attributes  in  the  case  of  range  checking,  or  the  beginning 
and  ending  indices  to  a  list  of  all  possible  values  for  the  attrib 
utes  that  specify  list  checking.  These  arrays  arc  unused  when  no 
checking  is  called  for. 

6.  LIST CllhK :  This  logical  array  is  set  to  "true"  for  list  checking 
and  "false"  for  range  checking  or  when  no  checks  are  required. 

7.  GLOB:  This  logical  array  is  set  to  "true"  if  a  global  definition 
is  in  force;  otherwise,  it  is  set  to  "false." 

8.  LISTVALS :  This  array  contains  the  acceptable  values  for  an  attrib 
ute  to  be  used  in  list  checking.  .In  this  mode  of  chocking,  the 
attribute  value  is  restricted  to  a  specified  list. 

After  transferring  these  data,  the  routine  checks  to  ensure  that  the  direct 
ory  as  read  was  of  the  proper  length.  This  is  accomplished  by  determining 
if  the  next  word  read  from  the  input  file  is  I-NDIRLCT.  If  so,  control  is 
returned  to  the  calling  program.  If  not,  an  error  message  is  printed  and 
subroutine  ABORT  is  called  to  terminate  the  run.  The  occurrence  of  this 
error  signifies  cither  a  machine  or  file  error  during  the  process  of  read  in 
the  directory  or  an  incorrectly  mounted  file. 


SUBROUTINE  REORDER 


PURPOSE : 


ENTRY  POINTS: 


To  rearrange  from  one  to  seven  arrays  into  the 
sequence  specified  by  the  elements  of  an  index 
array. 

REORDER 


FORMAL  PARAMETERS: 


COMMON  BLOCKS: 


ISHQ  -  (Fixed  point)  sequence  key  array  of  the 
type  produced  by  subroutine  ORDE.R 

NHL  -  (Fixed  point)  number  of  elements  to  be 
reordered  in  each  array 

NAR  -  (Fixed  point)  number  of  arrays  which  arc 
to  be  reordered 

L1-L7  -  (Fixed  point  or  flouting  point)  names  of 

the  arrays  which  arc  to  be  reordered;  if 
the  number  of  these  arrays  is  less  than 
seven,  the  remaining  positions  must  be 
filled  by  trailing  dummy  arguments 

None 


SUBROUTINES  CALLED:  None 


Method 


Subroutine  REORDER  operates  in  the  following  manner.  First,  it  stores  one 
clement  from  each  array  in  a  temporary  location,  it  then  reads  from  the 
array  ISEQ  the  clement  which  should  go  in  that  position  (which  may  now 
be  considered  empty)  and  moves  it,  filling  that  position  and  creating  a 
new  blank.  This  is  repeated  for  the  corresponding  element  of  each  array 
being  reordered.  Each  new  blank  spot  is  filled  with  its  proper  contents 
as  soon  as  its  original  contents  have  been  moved,  until  the  clement  cur¬ 
rently  in  temporary  storage  is  required.  When  this  happens,  subroutine 
REORDER  finds  another  element  which  is  not  already  in  its  sequence  and 
puts  it  into  temporary  storage  and  continues  as  before  until  no  elements 
are  out  of  sequence. 

The  contents  of  the  array  ISHQ  arc  returned  to  the  calling  program 
unchanged,  so  that  subroutine  REORDER  may  be  called  again,  using  the  same 
sequence  key  array  if  more  than  seven  arrays  are  to  he  reordered. 

Subroutine  REORDER  is  illustrated  in  figure  70. 


SUBROUTINE  SKIP 


PURPOSE: 


To  skip  a  number  of  words  on  an  input  file  using 
the  filehandlcr. 


ENTRY  POINTS:  SKIP 

FORMAL  PARAMETERS:  NWORDS  -  The  number  of  words  to  bo  skipped  on 

~~~  ”  "  the  tape 


COMMON  BLOCKS:  None 


SUBROUTINES  CALLED:  RDARRAY* 


Method 

This  subroutine  is  used  to  ignore  (skip)  a  number  of  words  on  an  input 
file  while  that  file  is  being  read  by  the  filehandlcr.  The  subroutine 
assumes  the  file  is  in  read  status.  This  subroutine  has  a  small  amount 
of  internal  storage  used  for  temporary  data  storage.  Subroutine  SKIP 
merely  calls  the  filehandlcr  subroutine  RDARRAY  to  fill  and  refill  this 
temporary  storage  area  until  the  required  number  of  words  have  been  read. 
This  leaves  the  input  file  in  position  to  read  the  next  word  of  data 
after  skipping  the  number  of  words  specified  in  the  formal  parameter. 

Subroutine  SKIP  is  illustrated  in  figure  71.  As  indicated,  RDARRAY 
reads  100  words  per  call  except  for  the  final  call  in  which  NP.EM  words 
arc  read  (NW0RDS= (M*100)+NREM) . 


See  f i  1  chain!  1  e r  subroutines. 


M=NW0RDS/1 00 

nri-:m= 

NWORHS- (100*M) 


SUBROUTINE  SKII'FILE 


PURPOSE : 

ENTRY  POINTS : 

FORMAL  PARAMETERS : 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 


To  skip  to  the  end  of  a  file  on  a  magnetic ' tape . 

SKIPFILE,  BACKFILL 

LTN  -  Logical  tape  unit  number 

None 

None 


Method 


This  subroutine  merely  reads  records  from  the  tape  unit  specified  in  the 
formal  parameter  LTN  until  it  encounters  an  end-of-file  mark.  It  then  re¬ 
turns  control  to  the  calling  program,  leaving  the  tape  in  position  to  read 
or  write  the  first  record  following  the  end-of-file. 

Entry  BACKFILL  is  used  to  read  the  tape  backwards  until  the  previous  end- 
of-file  mark  is  reached.  When  this  entry  is  used,  the  tape  is  positioned 
at  the  beginning  of  the  end-of-file  mark. 

This  subroutine  is  part  of  the  CDC  3800  SCOPE  system. 


!2(> 


FUNCTION  .SSKI’C 


PUUPO.SC :  To  determine  the  single  shot  kill  prohahi  1  i  ty  as¬ 

suming  a  circular  normal  delivery  distribution. 

11NTKY  POINTS:  SSKPC 

PORMAh  I’ARAMlii'PICS :  MOD  Integer  (current  ly  1,  S,  or  (i)  ;  MOD  Jet  ermines 

the  number  of  terms  used  to  approximate 
SSKI’C 

A  -  I.ethal  kill  radius  (positive  real  number J 

SXY  -  Standard  deviation 

R02  -  Offset  aim  point  distance,  squared 

COMMON  BLOCKS:  None 

SUBROUTlNIiS  CAbblil):  None 


Method 

SSKPC  determines  the  single  shot  kill  probability  PK1V  using  the  following 
formula : 


A 


Fi  .  72  .  (cont . } 
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simumiTiNi;  storaci: 


Pimpnsi: : 


HNTKY  POINTS: 


To  cm  Uul.it  c  and  print  I  ho  number  of  available 
memory  local  ions. 

S  TOR  At  IF. 


FORMAL  PARAHP.TliRS :  None 

COMMON  BLOCKS:  BNKBNDS 


suuBoirriNi-s  calli-:i>:  cltlimit 


Method 

This  subroutine  calculates  the  number  of  words  of  available  memory  in  both 
banks  of  the  CDC  3800.  It  calls  subroutine  (iP.TLlMlT,  which  returns  the 
limits  of  available  memory  in  both  banks  into  common  /BNKBNDS/.  STORACI; 
then  computes  the  difference  of  the  upper  and  lower  limits  and  prints  the 
number  of  words  available  for  programmer  use  in  both  banks.  ‘  In  addition, 
the  addresses  of  t ho  first  word  and  last  word  of  the  available  area  are 
written  on  the  standard  output. 

In  the  FORT KAN  language  under  the  SCOFF  PFS  Operating  System,  all  available 
core  not  utilized  by  the  p rob Uan  program  and  its  associated  system  subroutines 
is  used  for  input/otitput  buffer  storage.  Thus,  the  information  printed  by 
subroutine  STORAtll:  reflect:',  the  amount  of  available  core  after  the  buffers 
have  been  allocated.  As  a  result,  the  most  useful  information  returned  by 
STORACI:  is  the  upper  limit  in  both  banks.  The  true  amount  of  available 
storage  (i.  e. ,  ignoring  the  arbitrary  length  FORTRAN  I/O  buffers)  is  equal 
to  the  amount  of  core  from  the  lowest  available  storage  location*  to  the 
upper  bound  printed  by  , STOUAliP,  less  the  amount  of  numbered  common  in  the 
program. 

For  example,  if  STORAOL  prints  upper  bounds  of  '1000 1  (octal  I  and  3!(i4.r»  (octal) 
in  banks  1  and  0,  respectively,  and  the  lower  hounds  are  I  and  .’ltsIS  (octal) 
in  the  banks,  the  amount  of  available  core  is  20480  words  (decimal)  i.e., 
40001,,  -  1  ■*  31()4f>  -  21043.).  Any  numbered  common  in  the  program  must  be 

subtracted. 

.Subroutine  STOKAOP.  is  illustrated  in  figure  73, 

*ln  bank  one,  the  lowest  available  location  is  .  In  ban)  zero,  the 
lowest  available  location  is  the  first  location  following  the  re,  idem 
monitor  in  bank  "cm. 


73.  Submit  ine  STORAGli 
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FUNCTION  TIMliDAY 


piirposi: : 

RNTKY  POINTS: 

IUUMAI.  I’AUAMPTIilW: 
COMMON  HI. O'"'" : 
simuoiiTi  ‘  i.fd: 


To  obtain  tin*  current  t  i an.*  of  Jay. 
TIMliDAY 

X  -  A  ■lummy  para  mot  or 

None 

11  Ml 


Met  hoi! 

This  assembly  lany.uuRC  funct  ion  is  us  oil  to  j>et  t  Ik*  current  time  of  ilay  in 
2'1-hour  dock  format.  The  cij’lit  characters  that  arc  returned  arc  used  as 
follows:  first  character,  blank;  two  characters,  hour;  two  characters,  min¬ 
ute;  two  characters,  seconds;  and  one  character,  blank.  I  lie  system  macro 
*r  1  Mr.  is  used  to  retrieve  the  time  oT  day  in  this  format  .  When  called  from 
a  FORTRAN  program,  the  result  is  returned  in  I  I  oat  iny  point. 

I'unet  ion  TIMliDAY  is  illustrated  below  in  figure  7-1. 


Sb 

i  ft 

1  i  me 

1  n  t 

O 

Ac 

ruimi 

1  at  or 

r 

RlillIRN  ^ 


I'i  j;.  7-1.  Funet  i  on  I  I  Ml  DAY 


KIJHUnllTINI:  T I  Ml  Til 


lu  record-  mill  print  ili  ITe rent  ial  and  cumulat  i  vr 
di  f  IV  rent  ial  t  i  iik*  inlertals.  , 

'i'l  mi  :mi 

I  Integer  variable  ustd  as  described  below 

None 


simnoirriNLs  oai. 1.1:10  i;i  T<  i.oi:k 


Met  Inn)  '  '  > 

i  , 

The  formal  parameter  is  used  as  hollows;. 

I  ■  -.'•>  Ueact  i  vat  o  c  I  in  k  .  ■  .  , 

I  •"  -2  Dead  iv.it  e  clock 

I 

I  -  - 1  I  ii  it  iali/.e  TIMliMli 

I  •  D  I’riat  di  ITerenl  ial  ,  cumulative  d  i  liVren  I  i  a  I  ,  and  elapsed  times 

I  .*•  I  1 1 )  I’ I  are  d  i  I  I'e  ren  t  i  a.I  and  eiiinii  I  at  i  ve  d  i  ITerenl  i  a  I  times  in  cell  I. 

I  I  Ml  .Ml .  is  used  in  QUICK  tu  obtain  the  dinVron'l  ial  and  eu.  hi  I  a  t  .i  ve  e.usntion 
times  o  I  diflerent  stapes  til"  a :  prop,  ram.  A  call  on  TlMDMIi  with  I  -  -I, 

■  nil  iali/.cs  its  internal  eloek.  Nnbsnpienl  rails  wilh  I..I;  ID  will  ivroisl 
the  d  i  ITerenl  i  a  I  time  in  the  Ith  <1  i  I*  I'e  ren  I  i  a  I  lime  roll  and  will  add  the 
di  ITe  rent  ial  time  into  the  cumulative  d  i  iTeroii  t  i  a  I  time  veil.  her  example, 
t<>  obtain  the  separate  mini  i  nr.  limes,  for  three  st  aims  of  a  program,  one 
would  rail  I  I  Ml .  Ml .  with  I  -I  at  the  hep  i  nil  i  up  of  t  In.-  lirst  stupe  to 
i  n  i  I  ial  i  r.e  the  I  i  m  i  n»‘ .  A  rail  with  I  -  put  the  end  of  this  stae.e- 
would  cause  the  elapsed  t  inn-  to  In'  reeoided  in  eel  I'  I  oh  the  d i h he  rent i a  I 
time  array  and  to  he  added  into  cell  I  oh  I  lie  eumulal  ive  t  i  me  arr.o.  (kills 

with  I  -■  and  I  -  .i  at  I  lu-  end  el  the  second  aid  t  I  ;  rd  stain's,  respect  ivplx 

would  similarly  hill  the  second  and  third  cells  oh  the  two  arrays.  Not  ice 
that  I  is  used  a--  a  label  lor  the  cell'-,  not  as  . ■  1 1  iterat  ion  index. 

It  i posihle  to  exclude  t  1  me  used  her  i  rrehevant  eperut  ions  bv  ir.  i  lip.  cal  I  s 

with  I  and  I  -  -/■  at  the  bep.il  'ilip.  ana  end  oh  c.ncb  irrelevant  operat  ion 

to  "tin'll  oil"  t  be  internal  clod..  l;or  example,,  it  oik-  lias  a  print  siibronlim 

which  can  be  i.illcd  at  any  time  to  produce  delnip  print-.,  tiu-e  print  time'. 


I'llUI'OSI;: 

DN'IUY  POINTS : 
J'OKMAh  PAKAMITITS: 
COMMON  It  LOCKS: 


ciin  be  excluded  from  the  riimi i nj>  times  by  in.if.iii)',  a  call  with  I  -•  -2  at  the 
Ik.')’ inn  inj1,  of  tin-  print  subroutine  ami  a  call  with  I  -.'4  at  the  end.  This 
causes  the  time  elapsed  tlur  i  ti  j*  the  print  rout  i  lie  to  lie  subtracted  from  the 
<1  i  f  I’erent  i  a  I  time  of  the  call  i  up,  stupe  of  the  prop.  mm. 

A  call  with  I  ---  (I  causes  tlie  il  i  f  fe  rent  i  a  I  ami  cumulative  differential  time 
arrays  to  he  printed,  as  well  as  the  total  time,  the  time  lost,  and  l  lie  sum 
of  these  two,  or  the  total  elapsed  time. 

Three  error  warships  may  he  issued  from  TIMTMf: 

I  .  I  hl.htiAl,  TIMliMi:  CAI.I.  I  (  X  ) 

(if  I  :■  JO) 

2.  l-ltltOlt  -  STOP  ATTIiMITI-D  WITH  CLOCK  Al.ltliAHV  STOITIdl 

■  (if  two  successive  calls,  with  I  -2  are  made  without  an  iiiUrvon- 

i np  call  with  I  -  -.T) 

is.  liititoit  -  uiiSTAiff  atit:mpti:i)  W I  I'll  CLOCK  ACT  I  VI: 

(if  two  successive  calls  with  I  --  -(4  are  made  without  an  int erven i up 
call  with  I  =  -2) 

After  each  of  these  nicssapos ,  the  subroutine  returns  with  no  further  process!  up 
Subroutine  TIMliMh  is  illustrated  in  fipure  7!>. 


»•' i r •  75.  Siih rout  i no  TIM1.MI' 

2M. 

L 


SIMIIOUTINI:  WUITIiDIU 


IMIHI’OSl: : 

liNTIlY  POINTS: 


To  write  u  data  ease  directory  as  cont a i ned  in 
common  block  /III  Ui'CTIO/  onto  a  spcci  ficd  file. 

WKITIilHIt,  WKITliim 


1‘OKMAI.  I’AKAMliTliUS : 


ITAPX 


l.ogieal  unit  number  of  the  file  on  which 
the  directory  is  to  Ik1  written 


COMMON  H LOCKS  :  I) I  IthtTRY,  TIT,  TWOllli 

simitoirriNiiS  CAi.hiiD:  smwum  *,  wkakray',  witwoitn* 


Met  hod 

This  subroutine  writes  the  contents  of  common  block  /III  UliCl'KY/  on  unit 
ITAPX.  Sul>  roll  tine  WKITIilillt  is  i  I  lust  rot  ed  in  figure  7(>.  As  indicated, 
the  filehaiuller  subroutine  WUARRAY  is  called  to  write  the  contents  of 
the  arrays  described  below  onto  the  designated  unit.  Having  transferred 
these  data,  the  end  of  the  directory  is  signalled  by  writing  the  word 
HNDIMliCT  on  the  output  file  using  subroutine  WUWOUI). 

I.  ATTN  AMI: :  This  array  contains  the  name  of  each  defined  attribute. 


2.  I  FORMAT :  This  array  contains  the  conversion  format  (e.g.,  18)  to 
convert  the  value  of  the  attribute  to  output  (printer]  format. 

3.  I  CODIi :  The  array  rode  numbers  (between  one  and  seven)  which 
specify  the  type  value  (e.g.,  floating  point  number)  for  each 
attribute  and  the  method  of  checking  (range,  list,  or  none) . 

4.  1)1  if  All  IT :  This  array  contains  values  which  are  to  he  associated 
with  any  attribute  when  it  is  not  defined  for  an  item. 

5.  N I ,  N2 :  These  arrays  contain  either  the  minimum  or  maximum 
values  for  the  attributes  in  t lie  ease  of  range  checking,  or  the 
beginning  and  ending  indices  to  a  list  of  all  possible  values 
for  the  attributes  that  specify  list  checking.  These  arrays  arc 
unused  when- no  checking  is  called  for. 

6.  1.1STCIIHK :  This  logical  array  is  set  to  "t  mo"  for  list  chocking 
and  "false"  for  range  checking,  or  when  no  checks  arc  required. 


'Sec  filohandlcr  subroutine:.. 
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7.  l.til.Oh:  This  t  o  j  >  i  c ;  1 1  army  is  set  to  "Inn'11  when  a  plobal 
definition  is  in  force  ami  set  to  "false"  otherwise. 

H.  I.ISTVAI.S :  This  array  contains  the  accept  'hie  values  for  an 

attribute  to  he  used  in  list  cheek  inp,.  In  this  mode  of  cheek  inp,, 
the  at  tribute  value  is  restricted  to  a  specified  I'or 

example,  acceptable  values  of  the  attribute  Kllll:  iiiipht  he  limited 
to  Itlil)  and  lll.lli:. 


FIk.  76.  Subroutine  IVIUTIiDIR 


CHAPTER  5 
PROfiRAM  QUIKBASE 


PURPOSE 


The  main  purpose  of  program  QUIKBASE  is  to  ere  te  a  game  base  file, 
composed  of  a  number  of  items  defined  by  a  set  of  attribute-value  pairs, 
which  defines  the  data  base  that  will  be  used  by  succeeding  programs  in 
the  QUICK  system.  In  addition,  program  QUIKBASE  has  the  capability  to 
create  or  to  update  a  data  library  file,  as  well  as  the  capability  to 
print  the  game  base  file  in  a  format  which  is  meaningful  to  the  user. 


INPUT 


The  input  to  program  QUIKBASE  can  be  separated  into  four  major  categories: 
program  option  cards,  a  data  library  file,  update  command  cards,  and  item 
update  files.  Those  inputs  are  merged  to  create  the  game  data  base  file. 


Program  Option  Cards 

These  user-input  parameter  cards  specify  the  mode  of  operation  of  program 
QUIKBASE.  The  four  major  options  are:  creation  of  a  data  library  file 
from  card  images  (SETI1)  option!;  updating  of  a  data  library  file  to 
create  a  new  library  file  (UPDATE  option);  generation  of  a  game  base  file 
from  the  data  library  file  (QUIKI)B(I  option);  and  printing  of  the  game 
base  file  (PRJNTDB  option).  These  options  may  be  exercised  singly  or  in 
groups  to  perform  the  desired  operations.  Each  option  has  a  series  of 
subparameters  which  control  program  operation  (e.g.,  printing)  during  the 
execution  of  each  option. 


Data  Library  Fi  l_e 

This  file,  named  DATADB,  contains  a  series  of  card  images  with  the 
addition  of  card  identifiers  consisting  of  a  set  number,  a  line  number, 
and  an  update  identifier  (e.g.,  the  date).  The  card  images  arc  divided 
into  sets,  each  with  a  unique  number.  Within  each  set,  each  card  is 
assigned  a  consecutive  line  number.  Thus,  each  card  is  uniquely  defined 
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by  its  set  anti  line  number.  The  update  identifier  is  an  eight-character 
word  which  aids  the  user  in  determining  the  run  which  introduced  the 
card  into  the  data  library  file. 

In  some  applications  of  program  QUIKftASli,  there  is  no  existing  data 
library  file.  In  this  case,  the  SliTII)  option  may  be  exercised  to 
create  this  file  from  a  card  deck  or  a  tape  containing  BCD  card 
images.  The  input  file  is  then  called  the  I1ATAFIL. 

The  card  images  on  the  data  library  file  (PATADB)  are  data  base  creation 
cards.  This  sot  of  cards  is  constructed  as  follows: 

1.  Directory  Card  Images.  The  set  of  directory  cards  is  in  the 
format  of  eight  words  of  10  columns  each  witli  all  quantities, 
including  integers,  left- justified .  Two  commands  appearing  in 
word  one  are  recognized:  ADD  and  nNDIRMCT.  The  ADD  command 

is  used  to  add  a  new  attribute  to  the  directory  and  is  followed 
by  cards  containing  information  about  the  QUICK  data  base 
attributes.  The  liNDJRIiCT  card  terminates  the  deck  of  directory 
cards . 

2.  Data  Base  Card  linages.  The  liNDI RliCT  card  is  followed  by  the 
deck  of  item  cards.  Four  commands  arc  recognized:  DiiFlNli, 
ITliM,  UNDHPINL: ,  and  UNI)  INPUT.  The  111: F INI:  command  is  used  to 
produce  global  definitions;  i.e.,  attribute  values  which  will 
remain  in  force  until  removed  by  an  UNDHFJNl:  command.  Words  2, 
4,  and  6  contain  attribute  names,  while  words  3,  5,  and  7 
contain  their  associated  values.  A  blank  word  terminates  the 
sequence.  The  ITHM  command  is  used  to  provide  values  of  attri¬ 
butes  for  the  current  item  only.  Words  2,  4,  and  6  of  the 
card  contain  attribute  names,  and  words  3,  5,  and  7  contain 
their  associated  values.  Subsequent  cards  contain  attribute 
names  in  words  1,  3,  5,  and  7  and  values  in  words  2,  4,  6, 

and  8.  The  sequence  is  terminated  only  upon  detection  of  a 
command  in  the  first  word  of  a  card.  ilNDHF INI;  removes  global 
definitions.  The  names  of  the  attributes  to  be  undefined 
occur  in  the  remaining  words  of  the  card.  HNDINPUT  terminates 
the  deck  of  items. 


Update  Command  (lards 

These  user- input  parameter  cards  specify  the  mode  of  operation  in  the 
UPDA'l'b  option.  They  specify  the  placement  of  new  cards  in  the  existing 
data  sets,  as  well  as  The  input  medium  for  update  information.  The 
basic  IJPDA'IT  commands  are  Rl-PhAtli: ,  DliLl-TI: ,  and  ADDAFTIiR .  The  RliPi.ACii 
command  requests  the  update  card  image  to  replace  the  existing  card 
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image  on  the  data  library  file.  The  OI-LETH  command  removes  a  set  of 
card  images  from  the  data  library  file.  The  ADDAFTIiR  command  inserts 
a  number  of  update  card  images  onto  the  data  library  file.  These 
major  commands  have  several  subcommands  which  control  the  printing  of 
information  and  the  input  mode  for  the  update  card  images. 


Item  Update  Files 

These  files  (there  may  be  up  to  four  files  used  in  any  single  run) 
contain  update  card  images  to  be  inserted  into  the  data  library  file, 
The  format  of  these  files  is  either  buffered  data  ( 5 6 -word  physical 
records)  prepared  by  program  DELDliSIG  or  CARD  images  on  tape  prepared 
by  program  DATABACK.  These  programs  support,  but  are  not  a  part  of, 
the  QUICK  system.  Thee, fore,  they  are  not  discussed  further  in  this 
manual . 


OUTPUT 


There  are  two  major  outputs  from  program  QUIKBASE:  an  .pda led  data 
library  file  (updated  DATADB) ,  and  a  game  base  file  (QUIKDB) , 

The  updated  DATADB  file  is  in  the  same  format  as  the  original  DATADB 
file.  It  consists  of  a  series  of  card  images  with  two  words  appended 
to  each  image  (see  table  4  ).  The  two  words  are  the  set  number  and 
line  number  (both  contained  in  one  word),  and  the  update  identifier. 

The  QUIKDB  file  is  the  data  base  that  will  be  used  by  the  succeeding 
QUICK  programs.  It  consists  of  a  directory,  which  defines  the 
structure  of  the  attribute-value  pairs,  and  a  series  of  items  defined 
by  a  set  of  attribute-value  pairs.  (Table  5  shows  the  format  of  the 
data  blocks  on  this  file.)  This  file  contains  most  of  the  information 
on  the  weapon  forces  and  target  systems  that  will  be  used  in  the  game. 
The  conversion  of  the  data  library  cards  to  the  data  base  items  is 
discussed  in  the  next  section. 
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Table  4.  Data  Block  Format  for  DATADB  File 


WORD  DESCRIPTION 


1  Columns  1-8  of  card  image. 


2 

Columns 

11-18 

of 

card 

image . 

3 

Columns 

21-28 

of 

card 

image. 

4 

Columns 

31-38 

of 

card 

image . 

5 

Columns 

41-48 

of 

card 

image . 

6 

Columns 

51-58 

of 

card 

image 

7 

Columns 

61-68 

of 

card 

image . 

8 

Columns 

71-78 

of 

card 

image . 

9 

Set  and 

line  number. 

First  four 

characters  arc  set  number;  last 
four  characters  are  line  number. 


10  UPDATE  identifier. 


CONCEPT  OF  OPERATION 


The  main  processing  flow  of  program  QIIIKBASH  is  best  viewed  as  consisting 
of  four  separate  steps  or  options.  Not  all  steps  need  be  accomplished  to 
create  the  game  base  file.  The  .  'lection  of  the  options  to  be  exercised 
in  each  run  depends  on  the  form  of  the  input  and  the  desired  output. 

Since  a  complete  run  of  QU1KBASF  could  include  ail  four  options,  this 
section  describes  the  operation  as  if  all  four  were  to  be  exercised. 

Creation  of  a  Data  I  ihsary  File  (SH  IP)  Option^ 

This  option  reads  an  input  file  of  card  images  and  creates  a  data  lihrarv 
file.  The  input  set  of  card  images  is  divided  into  subsets,  hereinafter 
called  sets.  The  division  of  the  input  file  into  sets  is  not  merely  for 
addressing  conven i ence.  I  he  pllICK  data  base  concept  allows  tor  "global” 


Table  5.  Data  Base  File  (Logical  Record  Format) 


BLOCK  TV  PI: 

ARRAY 

LENGTH 

DESCRIPTION 

Directory 

IDEF 

1 

Number  of  attributes 

I.ASTLIST 

1 

Number  of  entries  in  value  list 

ATTNAME 

IDEF 

Attribute  names 

I  FORMAT 

IDEF 

Hollerith  format  codes 

1C0DF. 

IDEF 

Error  checking  code 

DEFAULT 

IDEF 

Attribute  default  value 

Ni 

IDEF 

Minimum  allowable  attribute  value 

N2 

IDEF 

Maximum  allowable  attribute  value 

L1STCHEK 

IDEF 

Logical  array  to  specify  list 
checking 

1.(51, OB 

IDEF 

Logical  array  to  specify  global 
definitions 

LISTVALS 

I.ASTLIST 

List  of  values  to  be  checked 

1 1  cm 

NI 

I 

Number  of  attributes  defined 
locally  for  this  item 

IN ITEM 

2*NI 

Array  containing  attribute  index 
(from  directory)  in  odd  elements 
and  attribute  value  in  even 
elements 

Define 

NI 

1 

=  -1  as  DEFINE  block  indicator 

L 

1 

Attribute  index  from  directory 

value; 

1 

Attribute  value 

u 

IJmlcfi  ne 

NI 

1 

=  -2  as  UNDEFINE  block  indicator 

L 

I 

Attribute  index  from  directory 

VALUE. 

1 

Now  attribute  value 

Terminator 

NI 

1 

=  ENDDATA  as  terminator  block 
i  ml  i cat or 

definitions  of  attribute  values.  That  is,  an  attribute  can  be  defined 
(by  a  UHFINL!  command)  to  retain  a  value  for  a  number  of  consecutive 
items.  This  capability  allows  compression  of  the  DATADB  file  without 
loss  of  information,  since  the  value  for  globally  defined  attributes 
need  not  be  repeated  for  every  item.  The  global  definition  remains  in 
effect  until  either  an  UNDFFINI:  command  is  encountered  or  the  end  of  a 
set  is  readied.  Thus,  division  of  the  input  file  into  sots  determines 
the  maximum  range  of  global  definitions.  A  global  definition  cannot 
exceed  one  sot  unless  it  is  recreated  by  a  new  DfiFlNI;  command. 

In  addition  to  division  of  the  input  file  into  sets,  this  option  appor  !s 
a  line  number  and  an  update  identifier  to  each  card  image.  The  line 
numbers  run  consecutively  within  each  set,  beginning  at  one  at  the  start 
of  each  set.  Iiach  set  may  contain  no  more  than  D,PP9  card  images.  The 
update  identifier  is  an  eight-character  word  which  identifies  the  run 
which  inserted  the  card  image.  Table  4  shows  the  format  of  the  data 
blocks  in  the  data  library  file,  DATADB.  There  is  one  data  block  for 
each  card  image. 

The  user  options  concerning  set  division  arc  discussed  in  the  description 
of  subroutine  SFTTD. 


Updating  a  Data  Library  File  (t)PDATF  Option) 

This  option  replaces,  deletes,  or  inserts  information  on  the  data  library 
file,  DATADB.  The  output  is  an  updated  DATADB  file  in  the  same  format:  as 
the  original  DATADB  file.  The  update  commands  must  lie  in  the  same  order 
as  the  information  on  the  DATADB  file.  Therefore,  the  process  used  in 
this  option  is  very  simple, 

The  program  reads  the  DAT  Mill  file  one  image  at  a  time.  If  the  set  and 
line  number  of  the  input  image  docs  not  match  the  set  and  line  number 
of  the  next  update  command,  the  current  image  is  written  on  the  updated 
DATADB  file,  The  next  card  image  is  then  read  from  the  DATADB  file. 

If  the  set  and  line  number  does  match  the  set  and  line  number  on  the 
next  update  command,  the  program  proceeds  to  revise  the  card  image. 

If  the  command  is  RFlU.AtT. ,  the  update  image  replaces  the  input  image  on 
the  updated  DATADB  file.  If  the  command  is  Dlil.FTF. ,  no  information  is 
written  on  the  DATADB  file.  If  the  command  is  ADDAFTIiR,  i.u  format  ion  is 
inserted  after  the  current  card  image  on  the  updated  DATADB  file. 


Pat  ;i  Base  bene  rat  ion  (Ql)  I  KPBC.  Ojit.un) 

This  option  produces  the  QIJIKPB  Tile.  It  may  he  run  concurrently  with 
the  Ul'PATIi  option,  since  a  data  base  is  generated  on  a  card-hv-card 
ha  sis. 

The  QIJIKPB  file  consists  of  a  number  of  data  blocks  as  defined  in 
table  5.  The  first  block  on  the  file  is  the  Plkl'.dTkY  biock.  There 
is  only  one  PlkliCTRY  block  on  the  Tile.  This  block  defines  the  attri¬ 
bute  names  and  character i sti cs .  It  provides  a  summary  of  information 
which  will  be  used  to  determine  attribute  values.  In  particular,  the 
I) I klil.'TKY  def  ines  the  position  of  each  uttr',,'utc  in  a  value  array  fVAI.IH  )  . 
In  addition,  the  mode  of*  error  check  inj;  fur  each  attribute  is  determined 
by  information  in  the  PlkliCTRY. 

The  PIRHCTRY  block  is  followed  by  a  number  of  ITI-M,  Dld-INT,  and  UNPlip I  Nli 
blocks.  Mach  separate  data  base  item  generates  one  lTP.M  block.  Hach 
global  definition  generates  one  Plil'JNIi  block,  liach  removal  of  a  global 
definition  generates  an  UNDliP  I  Nli  block.  (These  blocks  arc  none  rated  by 
the  data  base  commands  of  the  same  names.)  The  PATAPB  file  is  terminated 
by  a  terminator  block.  The  command  HNDDA'iA  generates  this  block. 

The  process  used  to  generate  these  blocks  is  s t r.i i ght. To rwa"d.  The 
directory  commands  ADD  and  liNPIRIiCT  to  generate  the  DIKIICTRY  block. 

Th o  descript  ion  of  subroutine  NliWIHR  explains  the  use  of  these  commands, 
The  JTI-.M  command  generates  one  1’liiM  block,  hach  Dl.FINl!  or  UN'PliF  1  Ml' 
command  generates  one  block  (Dlih'INH  or  UN'DIiPlNH ,  respect  ivcly)  for  each 
attribute  listed.  The  description  of  subroutine  Nh.lVBAkl  explains  these 
commands . 


Printing  of  a  Data  Base  1'ilc  (TRFNTPB)  Option 

The  data  base  file  QIJIKPB  may  be  printed  in  a  readable  format  as  it  is 
created  in  the  ItPDATb.  option,  or  separately  tlvmtgh  the  PR1NTPU  option 
In  either  case,  either  subroutine  I’k.YITASI-  or  suhrout j ro  PltVTPTA  is 
used  to  print  the  attr  ilnit.e-vu  lue  pairs.  The  desired  level  o'*  deta;l 
ilclm'iii;  ies  which  subroutine  is  used.  The  dese r i pi  ion  el  I'lc-c  utility 
sub  rou :  ,  lie.-  explains  the  print  in-;  process. 


IIH-NTI  MCATION  Ui-  SU BUOIIT 1  N'i!  FUNCTIONS 


Program  QIJIKDASI-  is  the  main  control  program.  This  subprogram  reads  the 
program  option  cards  and  calls  the  appropriate  subroutines.  Figure  77 
is  a  flowchart  of  program  QII1KBASI-. 


SI  "[M)  Opt  i  on  ( Ureat  i  on  of  Data  Library  File) 

All  the  functions  of  this  option  an  performed  by  subroutine  SITU). 


IJ  1'DA‘i  l;  Oj)t  .i on  ( ll]ithrt_i_n;;_c)f  batr  J_._i  bra rv  _Fj_lo  I 

Sunroutinc  PASTSF.T  is  the  main  controller  for  this  option.  It  calls  sub¬ 
routines  1NITFAST  and  NFWDATA  to  initialise  the  variables  und  arrays  used 
in  tliis  option.  Subroutine  INPRTCI.  reads  and  interprets  print  requests. 
The  update  commands  are  read  by  subroutine  CAKDCK.  They  are  interpreted 
by  subroutine  NliWDATA  (entry  NlilVCARDS)  ,  and  their  correctness  is  chocked 
by  subroutine  CAP'ifK.  If  some  of  the  input  information  is  contained  on 
files  from  progra.ii  DHLDFS 1 1! ,  subroutine  BDFTiT  is  .sod  to  read  this 
in  format  ion.  Subroutines  MOVliiT,  I  PR  1  NT ,  ADDSliT,  OUT,  COIJNTDS,  COPYDB, 
PlflCONT,  and  1  LOOK  are  used  to  perform  minor  utility  functions  for  this 
opt i on . 


QUIkDBC  Option  (Data  Base  I'i  le  Creat  ion , 


If  the  data  base  is  created  concurrently  with  a  data  library  file  update, 
subroutine  MAKIMT  controls  the  data  base  generation.  Otherwise,  sub¬ 
routine  MAKIUWS  is  utilized.  The  data  base  directory  commands  arc  inter¬ 
preted  by  subroutine  NhUDlR.  (The  '.IRl.CTRY  block  is  written  by  utility 
subroutine  U'RITliPIR.)  ''he  data  base  item  commands  arc  interpreted  by 
subroutine  N’ii'.VIkASi; .  (J'he  data  base  fill  blocks  for  these  commands  are 
written  b\  utility  subroutines  OUTiTIM  and  OIIT'VORDS.)  The  terminator 
bloc!’  is  out  no'.  t’V  'it  5  1  i  t  \r  subrout  inc  IM'PATA. 


PKINIDIi  Option  (Print  i  ng  of  a  Data  base  File) 

If  the  only  opt.  i  ■  >:i  exercised  is  the  PP.INTDIt  option,  subnnitine  PROMO 
controls  I  he  mode  of  operation,  otherwise,  subroutines  IASTSPT  or 
MAKbllAb  will  control  print  inc.  The  actual  print  lit;,  of  the  data  base 
file  is  performed  by  utility  subroutine^  PRN'TBASl' ,  I’RNThTA,  and  PUIli.M. 


COMMON  BLOCK  DEFINITION 


External  Common  Blocks 

»'  s  Tsssnsss* 


Internal  Common  Blocks 


Tabic  6  lists  the  common  blocks  used 
identities  the  associated  arrays. 


within  program  QIJIKDASE  and 


I 


J  IS 


‘ 

1 

J 

1 

Table  o . 

Program  QUIKUASE  Common  Blocks 
(Sheet  1  of  5) 

BLOCK 

VARIABLE 
OR  ARRAY 

DESCRIPTION 

1 

NS  AVI; 

Array  to  store  defined  attributes  and  values 

during  default  run 

\  1 

NS 

Array  for  storage  of  attribute  names  from 

directory 

i  i 

HIST 

NOPSUSP 

An  array  in  which  the  option  specifiers 
(e.g.,  UPDATE  and  SET  ID)  are  stored  in  the 

order  they  arc  executed  « 

\ 

NUSlil) 

The  number  of  options  called  for  during  one 

\  ■ 

\  1 

QU1  KBASli  run 

r 

i 

f 

:i 

■t  t 

r 

. 

h 

1  CK'l'ST 

1 CKTST 

Set  to  0  if  attribute  values  are  to  lie 

checked  against  the  data  base  directory; 
set  to  1  if  input  data  card  indicates 
checking  not  desired 

l 

S' 

i. 

i 

I CONTROL 

I  COM 

1  if  ITEM;  2  if  DEFINE;  3  if  UNDE FINE;  1  i f 

f. 

L 

(■ 

END I NIMH';  S  if  none  of  the  above 

j 

i  di  :s  i  cs 

IDES  Il'.S 

i 

Array  where  alphabetic  part  of  target  Jcsig- 

nators  is  stored 

Dl.SIC.NO 

Array  where  targets  are  counted  by  region 

. 

ienpset 

IENDSET 

True  if  all  PATAPB  has  been  read;  false  if 

not 

IP 

L. 

1  >-i  .»»■ !  t  r  «!  1. 1 . i  'i‘-vy*i*’w 

Table  6.  (cont.) 
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BlhOCK 

VARl  ABIT: 

OR  ARRAY 

DHSGRTPTION 

ITSTIIM? 

1TSTUFF 

Array  where  buffered  data  arc  read  and  stored 

1  tvs  11)1; 

1WS1  Dl- 

Hollerith  print  constants  RHD  and  Bbllli 

JDliSTliST 

iJ DHSTHST 

Position  of  DliSIC  attribute  in  ATTNAMli  array 

KKSliT 

KKSliT 

Set  to  1  or  2  to  control  storage  of  target 
designator  codes 

LOG FLAG 

LAST 

TRlll;  if  LAST  update  item  lias  been  read 

I CNT 

TRUI;  if  there  is  an  unprocessed  update  card 

TAPI;  I N 

TRUI:  if  BCD  tape  data  to  lie  added 

I  ADD 

TRlll-  if  last  control  card  was  ADDAPi'HR 

DLL 

TRUIi  if  last  control  card  was  DIU.HTh 

Ri.rirr 

TRlll:  if  last  control  card  was  PLI’LACL 

AUDIT 

TRUIi  if  card  in  buffer  is  to  be  added  to  base 

ILiRROR 

Not  used 

MY GOODS 

YU  Ml-; 

Line  number  of  current  DATAI'B  line  number 

i  si:  r 


Set  number  from  Ujnl.it  e  tape  item;  i.O..  set 
t'  (i  I'e  iikhI  i  f  i  oil 


BLOCK 

MYGOODS 


:  Pi'  INPUT 

Mi' OUT 

MYRRIMf 


•!VT.\ri:.s 


Tiil>  1  c  6.  (cent.) 
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VAR  I  AH  LI: 
OR  ARRAY 

(eont . ) 

.JSiiT 

NUWDATi: 


IHiSCUllTlOX 

Set  number  of  current  DAT ADD  set 

Run  identification  (it  yiven)  from  update 
tape  item 


I  iWSTUM 


Array  whore  auxiliary  data  are  read  if  whole 
items  or  sets  are  boiiijj  added 


OUTS  TUI  1-  Array  where  DAT  ADR,  item  is  read  and  used 


I  STAR 

R,  1  an 

M)i;iT,\'i; 

TRIIIi 

card 

N'llNDi; ! 

TR1IR 

card 

if  old  data  item; 
for  I -'A  LSli)  if  last 

(or  LA  LSI: )  if  hist 


*  i f  new  dat  a  i tom 
item  was  a  define 

item  was  an  unde  fine 


I  \  ( IV  I  I 


.LIT 
1.01  IT 

Ki  Al’l  ni  if 
rJ.MARPS 


1  ape  miinl'e  r  o  f  aux  ilia  ry  , 

edit  command  card 

.lata; 

read  i  n 

on 

I'AI  APB  tape 

number;  set  f 

rum  IN' 

1  AIT. 

PATU'BIIP  ta 

pc  number;  set 

from 

xniri  1  !  1 

.UN 

I'UIKl'l:  tape 

a  i  mil  r.  r  [  d  a  1  a 

■et  In 

"1 

1  l  '  ri  \'\ 

l  urur.e  t  ape  I'n  ] 

r  ed  i  1 

coiiim.i  a . 

1 

v  ards  |  dat  a  el  In  1 1  ’  i 


■a  ./ 


m.oo: 

NlilYSRT 

NORRS  I (IS 

NOliRROHS 


NOTHST 

OPTIONS 


T/iblc  6  .  (emit.) 

(Sheet  'I  of  ,rO 

VAR  I  ABIT 

OR  ARRAY  I H ;SCR  I  I’T  I  ON 

NRIVSIiT  Set  mimher  to  be  assigned  to  new  set,  if 

present 


NODIiS  I  OS 


Tot  ;il  count  by  side  of  target  des i  ipiator  code 


NORRRORS 


lirror  count  of  edit  command  card  errors 


N  AMRO  I- 

NRRIIONI: 

IWANTIUI 


2nd,  3rd,  and  4th  fields  on  I, AST  card  of 
edit  deck;  usually  name  and  plume  number  of 
person  who  submitted  jobs 


NOTRS’l 


Switch  to  control  data  check injjj  0  to  check, 
nonzero  if  no  checking  recpiireul 


NOON 


1  ATARI 
MHJTI 

\0ir12 


XT 


XIIM 


Array  into  which  option  card  is  read;  NC0N((i) 
passed  on  as  date  evident 

Input  (primal’)' )  tape  for  the  run 

Output  (primary)  tape  for  the  run 

Second  output  tape  (if  any)  for  the  run 

1  if  print  selected;  2  if  not 

HoKinniiij;  line  number  of  SRI  I  b  set 


vOI’Sl  T 


Option  switch  for  SI1TJI);  1-default,  2  =  side, 
3-el  ass,  4-side  or  class,  a-iiianual 


Table  6  .  (cent.) 
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D1ISCR1PT 1 ON 

hardest  allowable  line  number  in  a  .set  made 
by  default  option  of  SI iT I D 

SliTI  1)1)  ID  Array  where  set  number  to  be  printed  is 

stored 

INDliX  9999  if  all  sets  are  to  he  printed;  0  if 

none  are  to  be  printed;  count  of  number  of 
sets  to  he  printed  if  list  read  in 

.JNIO  0  if  no  sets  to  be  printed;  equal  to  INDliX 

if  list  read  in;  equal  to  number  of  sets’ 
updated  if  1M)T0=1 

IAUT0  1  if  updated  sets  arc  to  be  printed;  0  if 

not 


VARTABUi 
B1-0CK  OH  ARRAY 

OPTIONS  (cont.J 

i  sins  i  z 


Is  Word  2 
QUIKDBfi? 


Call 

MAKIiBAS 


SUBROUTING  ADDSET 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  FLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  add  a  sot  number  to  the  list  of  sets  to  be 
printed . 

ADDSET 

I  -  The  set  number 


SET I no 
I  LOOK 
C A RUCK 


Method 


Subroutine  ADDSET  adds  a  set  number  (I)  to  the  array  ID  arid  increases  the 
pointer  (JNDEX)  under  which  the  set  number  is  stored.  An  error  message 
is  printed  if  more  than  BO  sots  are  requested.  Subroutine  ADDSET  is 
illustrated  in  figure  78. 


i7i«.  711.  Subroutine  ADDSUT 


SUBROUTINE  BUI’ FIT 


PURPOSE: 

To  read  in  buffered  data  and  to  return  one 
cal  record  (eight  words)  to  calling  program 

ENTRY  POINTS: 

BUFFIT 

FORMAL  PARAMETERS: 

I DONE  -  Flag  to  show  end  of  tape  data; 

0  if  not  done 

1  if  done 

COMMON  BLOCKS: 

ITSTUFP ,  MY  1  APES ,  MYOOODS,  MY  INPUT,  ►’EIVSET 

SUBROUTINES  CALLED: 

None 

CALLED  BY: 

NBWCARDS 

Method 


Subroutine  BUF’FIT  roads  a  physical  record  of  56  words  (seven  eight-word 
items),  compares  the  set.  number  of  buffered  data  with  the  desired  set 
number  and,  if  they  are  the  same,  returns  a  data  record  to  the  calling 
program  through  common  block  /Ml' INPUT/.  If  a  record  is  being  returned, 
the  formal  parameter  IDONE  is  set  to  0.  When  the  data  for  the  set  arc 
exhausted,  either  because  the  end  of  set  or  the  end  of  the  data  is 
reached,  IDONE  is  returned  as  a  1 .  If  a  parity  error  is  encountered  on 
the  input  tape,  an  error  message  is  printed  and  the  job  is  terminated. 
Subroutine  BIJFFIT  is  illustrated  in  figure  79. 


2oo 


SLJBROUTIN!  CARDCK 


PURPOSE ;  To  road  in  and  store  on  a  scratch  file  all  oi‘ 

.  the  user-input  editing  commands  and  data  hast’ 

updates  to  he  used  to  modify  a  DATADIl  tape. 

ENTRY  POINTS:  CARDCK 

i'ORMAL  PARAMETERS:  None 

COMMON  BLOCKS :  OPTIONS,  MYTAPES,  NOERRORS  ,  FIT 

SUBROUT  INhS  CALLED:  ADDSET ,  P  I  LIUINR ,  NIIMCHT 

CALLED  BY:  FAST, SET 


Method 

Subroutine  CARDCK  reads  in  a  card,  determines  if  it  .is  an  editing  command 
(e.g,,  ADDA1TER,  DELETE,  REPLACE) ,  and  takes  appropriate  action.  Non- 
command  cards  are  assumed  to  be  data  base  items  and  are  written  directly 
to  tape;  command  items  are  examined  for  proper  sequencing  of  set  and  line 
numbers  and  for  legal  commands.  Ail  cards  arc  printed.  Errors  are 
counted  and  error  messages  arc  printed  if  illegal  cards  are  encountered. 
Subroutine  CARDCK  is  illustrated  in  figure  80. 


SUBROUTINE  COPYDB 


PURPOSE ; 

ENTRY  POINTS: 

FORMAL  PARAMETERS : 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  make  a  copy  of  the  updated  DATADB  tape. 

COPYDB 

None 

I TP,  MY  I DENT,  OPTIONS 

FI  LEI  INK 

FASTSET 


Method 


Subroutine  COPYDB  copies  the  updated  DATADB  tape  generated  by  a  FASTSET 
update  run  from  NOUT1  to  N0UT2.  Copying  is  terminated  by  the  word 
ENDINPUT.  Subroutine  COPYDB  is  illustrated  in  figure  81. 


Stib runt  i  ik-  COI'VDM 


SUBROUTINE  COUNTDS 


PURPOSE: 

ENTRY  POINTS: 

I'ORMAL  PARAMETERS : 

COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  tally  the  number  of  targets  by  region  and 
target  type. 

COUNTDS 

MYDHSIG  -  The  target  designator  code  in  AS 
format 

KKSET,  IDES I OS j  NODES1GS 

None 

NEWBASE 


Method 


Subroutine  COUNTDS  decodes  t lie  five  alphameric  characters  (two  letters 
and  three  digits)  transmitted  to  it  via  MYDESIG  into  two  letters  and 
three  numbers.  The  integer  portion  of  the  target  designator  code 
MYDESIG  (attribute  DESIG  in  the  data  base)  is  used  to  determine  the 
region  1REG  to  which  a  target  class  is  assigned  for  summary  purposes. 
Three  regions  are  considered  to  be  defined  as  1-499,  900-799,  and 
800-999 . 

The  target  types,  indicated  by  the  alpha  portion  of  DESIG,  are  stored  in 
array  IDES  ICS  by  side  as  they  arc  encountered  and  tallied  by  type  and 
region  in  DES1GNO,  a  two-dimensional  array.  Subroutine  COUNTDS  is  illus¬ 
trated  in  figure  82. 
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He.  82.  Subroutine  COUNTDS 
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SUBROUTING  FASTSET 


PURPOSE : 

GNTRY  POINTS: 
FORMAL  PAIIAMGTGRS: 
COMMON  BLOCKS: 


FASTSET  is  the  main  control  and  monitoring 
routine  for  an  update  run. 

FASTSLT 


None 

HRUORM,  I TP ,  MY l DENT,  MYTAPGS,  NOGRRORS,  NOPIUNT, 
OPTIONS 


SUBROUTINES  CALLED:  CAUDCK,  COPYDB,  FTLEIINR,  INITFAST,  1NPRTCL, 

. “  MAKE  IT,  NliWDATA,  PAOGSKP,  PRTCONT 


CALLED  BY: 


QUIKBASE 


Method 


Subroutine  FASTSET  calls  IN1TFAST  to  initialize  all  arrays.  It  assigns 
file  names  and  initializes  the  filehandlcr  and  all  pertinent  tapes  to 
read  and  write.  If  manual  print  control  was  requested  on  the  option  card, 
subroutine  INPRTCL  is  called,  Subroutine  CARDCK  is  called  to  read  in  and 
check  all  the  update  data.  If  that  subroutine  has  found  errors  .in  the 
input  deck,  FASTSET  prints  the  error  messages  and  aborts  the  run.  If  the 
update  data  have  no  discernible  errors,  subroutine  MAKETT  is  called  to 
perform  the  major  functions  of  the  program.  Control  is  returned  to 
FASTSET  which  again  looks  for  and  prints,  if  present,  any  error  messages. 
The  subroutine  to  print  the  target-region  summary  (PRTCONT)  is  called 
and,  if  requested,  a  second  copy  of  the  updated  data  base  is  created  by 
subroutine  COPYDB.  Subroutine  FASTSET  is  illustrated  in  figure  83. 


FUNCTION  [ LOOK 


PURPOSL; 

liNTRY  POINTS: 

FORMAL  PARAMETERS : 

COMMON  BLOCKS: 
SUBROUTINES  CALLUP: 
CALLED  BY: 

Method 

Function  I  LOOK  examines 
mine  if  all  sets  are  to 
If  the  flag  is  not  set, 
INPRTCL  and/or  ADDSliT) 
[LOOK  Is  illustrated  in 


To  examine  array  ID  (set  numbers  to  bo  printed.), 
over  IN  items,  for  the  presence  of  I  (a  set 
number].  The  value  of  the  function  is  1,  if  1 
was  found,  0  if  I  was  not  found. 

I  LOOK- 

IN  -  The  number  of  items  to  be  sea,  died 
I  -  flic  item  to  search  for 

SH’I'l  DD 


None 

ADDSliT,  1  PR  I  NT 


the  flag  INDEX  in  common  block  /SETTOP/  to  detei 
be  printed.  If  INDEX  is  DIME),  a  .1  is  returned, 
array  ID  in  common  block  /SETIPP./  (preset  by 
s  examined  for  the  occurence  of  I,  Function 
figure  S4 . 
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SUBROUTINE  INITl-'AST 


PURPOSE : 

To  set  constants  and  clear  arrays  for  subroutine 
associated  with  QIJ1KBASE. 

ENTRY  POINTS: 

INITl-'AST 

FORMAL  PARAMETERS : 

None 

COMMON  BLOCKS: 

D1RECTRY,  1-RRORM.  1CKTST,  1CONTROE,  IDESltiS, 
IFiNDSET,  ITP ,  ITSTUFI-',  fWSIDE,  JDESTEST, 

KKSET,  MPRTOPT.  MYGOODS  ,  MY  1  DI-NT,  MY  INPUT , 

MYOUT ,  MYPRINT,  MYTAPES,  NEWSET,  NODES  ICS, 
NOERRORS,  NOPRINT,  NOTEST,  I’RTOPT,  SliTlDD, 

TWORl) 

SUBROUTINES  CALLED: 

None 

CALLED  BY: 

EASTS ET 

Method 


INITl-'AST  does  no  computation.  Either  through  data  statements  or 
executable  statements,  it  presets  constants  and  arrays  to  their 
appropriate  values.  Subroutine  IN ITJ-'AST  is  illustrated  in  figure  85. 


SUBROUTINE  INPRTCL 


PURPOSE :  To  road  print  control  cards  for  FASTSET  (update) 

if  print  control  option  was  selected,  and  to  set 
appropriate  flags  to  monitor  printing  during  the 
execution  of  the  main  program. 

ENTRY  POINTS:  INPRTCL 

FORMAL  PARAMETERS :  None 

COMMON  BLOCKS:  ICKTST,  SETIDD 

SUBROUTINES  CALLED;  NUMGET 

CALLED  BY:  FASTSET 


Method 

Subroutine  INPRTCL  reads  a  print  control  card  (option  UPDATE)  and  deter¬ 
mines  if  the  first  word  is  ALL.  If  it  is,  flag  INDEX  is  set  to  0999  and 
the  subroutine  returns  to  the  calling  program.  If  the  card  contains  the 
word  AUTO,  the  flag  IAUTO  is  set  to  true,  and  another  card  is  read.  If 
the  card  is  CHECKOFF*,  the  switch  to  disable  the  value  checking  proce¬ 
dures  is  turned  on  and  a  card  is  read,  if  the  card  is  neither  ALL,  AUTO, 
nor  CIIEC,  it  is  assumed  to  be  a  sot  number  or  an  end  flag.  The  four 
characters  are  translated  to  digits  and,  if  they  are  not  9999,  they  arc 
stored  in  sequential  locations  in  array  i  I)  until  the  termination  flag 
9999  is  encountered.  Counters  INDEX  and  .INDEX  are  set  to  the  number  of 
set  numbers  stored. 

The  command  ALL  causes  all  sets  to  he  printed.  The  command  AUTO  causes 
all  updated  sets  to  be  printed  in  full.  The  set  numbers  listed  in  array 
JD  will  be  printed  in  Full  whether  or  not  they  are  updated. 

Subroutine  INPRTCL  is  illustrated  in  figure  SO. 


‘Only  first  four  letters  checked. 


Subroutine  IM’KTCi 


FUNCTION  I PRINT 


PURPOSE ; 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED; 
CALLED  BY: 


To  determine  if  a  set  is  to  be  printed. 
I PRINT 

I  -  The  number  of  the  set 


SliTIDD 


I  LOOK 
NEWDATA 


Method 


Function  IPRINT  examines  the  flag  INDEX  to  see  if  either  all  (INDEX=9999) 
or  none  (INDEX=0)  of  the  sets  are  to  be  printed.  If  either  condition 
exists,  IPRINT  is  set  to  1  or  0,  appropriately.  If  INDEX  is  neither 
value,  the  flag  IAIJTO  is  checked  for  true  (all  updated  sets  are  to  be 
printed),  or  false  (specific  specified  sets  are  to  be  printed).  If  IAUTO 
is  true,  the  array  ID  (list  of  sets  to  be  printed)  is  searched  over  the 
length  equal  to  INDEX;  if  IAUTO  is  false  the  length  of  the  search  is 
INDEX.  Function  IPRINT  is  illustrated  in  figure  87. 
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Fig  •  87-  Function  (PRINT 


SUBROUTINE  MAKE BAS 


PURPOSE : 


ENTRY  POINTS: 


FORMAL  PARAMETERS: 


COMMON  BLOCKS: 


SUBROUTINES  CALLED: 


To  call  the  subroutines  required  to  prepare  a 
game  data  base  tape  QU1KDB  from  an  input  data 
library  tape  DATADB  when  updating  of  the  DATADB 
file  is  not  required. 

MAKE BAS 

None 

ERRORM,  MIST,  LOGFLAG,  OPTIONS 

ENDDATA  FI  LEI  IN R,  IN1TFAST,  NEWBASE,  NEWDATA, 
NEWD1R,  PRNTBASE,  PRNTDATA,  WRITED1R 


CALLED  BY: 


QUIKBASE 


Method 


Subroutine  MAKEBAS  is  a  driver  routine  which  controls  the  sequencing  of 
operations  required  to  create  the  QUIKDB  tape  when  the  QIJIKDBG  option 
is  exercised.  As  indicated  in  figure  60,  MAKEBAS  calls  the  filehandlcr 
(FI  LEI  IN  R)  to  initialize  the  read,  write,  and  scratch  files.  Then, 
MAKEBAS  calls,  in  order,  the  other  subroutines  required  to  write  the 
QUIKDB  tape.  In  effect,  MAKEBAS  is  essentially  the  same  as  a  null 
IJP DATE  run. 
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SUBROUTING  MAKEIT 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 

COMMON  BLOCKS : 
SUBROUTINGS  CALLED: 
CALLED  BY: 


A  driver  to  call  the  subroutines  necessary  to 
make  a  new  data  base. 

MAKEIT 

NT1  -  The  tape  where  the  QUTKOB  tape  will  be 
written 

JDESTGST 

ENDDATA,  IT  LG ,  NGKBASE,  NE1VD1R,  WHITED!  R 
FASTSET 


Method 


MAKEIT  calls  the  data  base  generation  subroutines,  NEWDIR,  WRITEDIR, 
NEWBASE,  and  ENDDATA,  which  create  the  game  base  file,  QUIKDB.  Its 
only  computation  function  is  to  look  up  and  store  for  later  use  the 
index  number  of  the  attribute  DESIG  in  the  data  base  directory  (array 
ATTNAME) .  Subroutine  MAKEIT  is  illustrated  in  figure  89. 
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SUBROUTINE  MOVEIT 


PURPOSE :  To  move  update  data  to  output  buffer;  add 

the  desired  data  or  update  identification; 
and  to  add  current  set  and  line  number  to 
output  record. 

ENTRY  POINTS:  MOVEIT 

FORMAL  PARAMETERS :  I HOWTO  -  Switch  to  indicate  whether  input  buffer 

is  to  be  moved 

COMMON  BLOCKS:  MYOUT,  MY INPUT,  MY GOODS 

SUBROUTINES  CALLED:  FILEHNR 

CALLED  BY :  NEWDATA 


Method 

Subroutine  MOVEIT  increases  the  current  line  number  within  the  set  by 
one.  It  examines  the  input  parameter  I HOWTO  to  determine  which  of  two 
functions  it  is  to  perform.  If  the  argument  is  equal  to  a  one,  MOVEIT 
transfers  a  data  record  from  common  block  /MYINPUT/  to  block  /MYOIJT/. 
It  next  sets  the  tenth  word  of  the  block  to  the  update  identification. 
The  set  and  line  number  are  encoded  as  two  four-digit  numbers  into  the 
ninth  word.  If  the  input  argument  was  a  two,  only  the  last  function 
is  performed  by  MOVEIT;  i.e.,  the  set  and  line  number  arc  encoded  into 
the  data  record.  Subroutine  MOVEIT  is  illustrated  in  figure  i)(). 


Pig-  90.  Subroutine  MOVEIT 


284 


SUBROUTINE  NEWBASE 


PURPOSE: 

To  prepare  or  augment  the  item  portion  of  a  data 
base  tape. 

ENTRY  POINTS: 

NEWBASE 

FORMAL  PARAMETERS: 

NT1  -  the  logical  tape  number  where  the  base  is 
to  be  written 

COMMON  BLOCKS: 

MY GOODS,  KKSET,  JDESTEST,  PRTOPT,  DIRECTRY, 
IENDSET,  I TP ,  TWORD,  NOTEST,  ERRORM,  ICONTROL. 
MYOUT 

SUBROUTINES  CALLED: 

NEWDATA,  WRWORD* ,  WRARRAY*,  ITLE ,  COUNTUS, 

NUMGET 

CALLED  BY: 

MAKE IT 

Method 


Subroutine  NEWBASE  employs  subroutine  NEWDATA  to  read  the  item  portion 
of  the  data  base,  check  for  errors,  and  write  each  item  on  the  specified 
output  tape,  NT1 . 

Four  commands  are  recognized:  DEFINE,  IJNDEFINE,  ITEM,  and  ENDINPUT.  In 
the  case  of  DEFINE  the  succeeding  fields  on  the  card  beginning  in 
columns  11,  21,  31,  etc.  contain  attribute-value  pairs  which  arc  to  be 
made  into  global  definitions  in  which  the  first  field  of  the  pair  is  the 
BCD  name  of  the  attribute,  left-justified ,  followed  by  the  value  in  the 
second  field.  The  sequence  of  attribute-value  pairs  occurring  on  a  card 
is  terminated  by  a  blank  field. 

The  ITEM  card  is  as  described  above  except  that  the  definition  is  local 
and  the  entire  sequence  of  cards  is  terminated  only  upon  detection  of 
another  command  in  the  first  field  of  a  card. 

The  UNDEFINE  card  removes  global  definitions  with  the  names  of  the 
attributes  to  be  undefined  occurring  in  succeeding  fields  on  the  card, 
terminated  by  a  blank. 

The  deck  of  input  cards  is  terminated  by  ENDINPUT  which  also  causes 
NEWBASE  to  return  to  the  calling  program. 


*See  subroutine  Fll.LUNK. 


All  cards  read  by  the  routine  arc  checked  for  consistency  unless 
checking  has  been  turned  off  by  an  update  PRNTt’L  option  card  (see 
subroutine  INPRTCL).  That  is,  the  attribute  specified  is  checked 
to  determine  that  it  is  in  fact  defined  in  the  data  base  directory 
and  that  the  value  associated  satisfies  any  range  or  list  check 
specifications  for  that  attribute.  Appropriate  error  messages  are 
emitted  when  such  inconsistencies  are  detected.  The  flowchart 
(figure  91)  consists  of  three  parts.  Part  I  shows  the  processing 
sequence  used  in  NliWBASli.  Parts  11  and  Ill  show  the  operations  of 
three  local  subroutines  used  by  NEWBASl-  to  perform  the  data  checks 
and,  if  required,  to  write  error  messages.  Part  11  shows  the  local 
subroutines  used  to  signal  undefined  attributes  (sec  statement  110) 
and  to  signal  an  error  in  the  assigned  attribute  value  (see  statement 
120).  Part  III  shows  the  procedures  used  to  convert  and  check  the 
attribute-value  pair. 
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f  ig.  01  .  (cont . ) 

Part  I :  (cont . ) 
(Sheet  2  of  3) 
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t:ig.  91  .  (cont.) 

Part  1:  (cont.) 
(Sheet  3  of  3) 
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I'  i .  ■’  1  .  U'unt  . ) 

I’.irt  II: 


1  Sub  rout  i  110s 


Fig.  91  .  (cont . ) 

Fart  III:  Local  Subroutine  for 

Attributc/Valuc  Checking 
(Sheet  1  of  2) 
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IMr.  yi.  (cont.) 

Part  Ill:  (cont.) 
(Sheet  2  of  2) 
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SUBROUTINE  NEWDATA 


PURPOSE;  To  perforin  the  following  functions  in  conjunction 

with  the  FASTSET  update  of  program  QUIKBASE: 

1.  A  call  on  Entry  NEWDATA  initializes  errors 
and  constants  for  NEWCARDS. 

2.  A  call  on  NEWCARDS  returns  the  next  valid 
data  base  card  to  the  calling  program  in 
OUTSTUFF. 

3.  To  translate  ITEM,  DEFINE,  UNDE FINE,  and 
ENDINPUl  to  IC0M=1 ,  2,  3,  and  4,  respectively, 

4.  To  act  on  all  editing  and  deleting  commands; 
to  write  updated  DATADB, 

ENTRY  POINTS;  NEWDATA,  NEWCARDS 


FORMAL  PARAMETERS :  None 


COMMON  BLOCKS: 

SUBROUTINES  CALLED: 


ICKTST,  ICONTROL,  1ENDSET,  ITP,  MY  GOODS,  MYINl'UT, 
MYOUT,  MY PR I NT,  MYTAPES ,  NEWSET,  NOTEST 

BIJFFIT ,  F I  LEI  IN  R,  IPRINT,  MOVEIT,  NUMGET,  OUT, 
PAGESKP 


CALLED  BY: 


NEWBASE,  NEWDIR,  FASTSET 


Method 


Subroutine  NEWDATA  is  an  initiating  entry  which  presets  constants  to  zero, 
true,  or  false,  as  appropriate,  and  prepares  the  tape  written  by  CARDCK  to 
be  read. 

Entry  NEWCARDS  is  the  primary  read  and  command  editing  subroutine  for  the 
FASTSET  update  option.  A  call  on  NEWCARDS  returns  a  single  data  base 
item  to  the  calling  program.  The  subroutine  reads  a  control  card  record 
and  determines  if  a  record  is  to  be  deleted,  replaced,  or  added.  It 
matches  update  data  against  a  DATADB  tape  using  the  set  and  line  numbers 
to  control  the  position  of  both  tapes.  The  control  cards  indicate  the 
source  of  new  data  which  may  be  individual  BCD  images  from  card  or  tape, 
or  which  may  be  packed,  buffered  records  on  tape.  Each  data  card  is 
examined  to  see  if  it  is  an  ITEM,  DEFINE,  UNDEF1NE,  or  END1NPUT  card.  If 
one  of  these  is  encountered,  the  common  variable  ICOM  is  set  to  1,  2,  3, 
or  4,  respectively.  If  the  card  is  none  of  those  listed,  ICOM  is 
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returned  equal  to  5.  Set  and  line  numbers  are  added  to  each  record,  as 
is  the  run  identification.  The  output  tape  DATADBUP  is  written,  and  the 
items  are  printed  if  the  print  option  for  the  set  being  read  was  selected. 
Error  messages  are  written  to  the  error  summary  tape  and,  in  all  cases 
where  possible,  the  run  continues  noting  as  many  errors  as  possible.  In 
the  event  an  error  cannot  be  circumvented  (e.g.,  the  data  base  set  numbers 
requested  on  the  update  command  cards  cannot  be  found),  the  run  is  aborted. 
Subroutine  NEWDATA  is  illustrated  in  figure  92. 
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i  Fig-  92. 

s 


Subroutine  NliWDATA 
(Sheet  1  of  7) 
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START 


tntrv» 

NthCAMilS 


tCNNTruc 


SO  ]Tnjo  T 

/  audit?  Val!»r  i  u  , 

V«ft  DAT.uifi 

\  AJuoil  i  o  Base  / 


Call  RDAttHAV 
Head  4  Control 
Card  Imufte 


Cal  1  RD\HRAY 
Read  Record 
From  DATADB 


Get  Set  Number  (JSfT) 
and  I.ine  Number 
(JUNE) 


j£*/  l»  Np*t  R«ad 

~  \  From  DATADB ? 


Is  Next  Item  ' 
From  Input  Data  . 


Fig.  92.  (cont.l 

(Sheet  S  of  7) 
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Fig.  92.  (cont.1 

(Sheet  7  of  7) 
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I 


SUBROUTINE  NEWDIli 

i 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 

SUBROUTINES  CALLED: 
CALLED  BY: 


To  create  a  new  data  base  directory . ( . 
NKWDI P. 

None 

DIRECTRY  i  ERRORM,  ITI>,  MPRTOPT,  MYOI1T, 
TIVORD 

ITi.E,  NUMCHT,  NEW!)  AT  A  [Entry  NEIVCARDS) 
MAKEIT 


'  i  1  i 

Method 

I  .  1 

This  subroutine  employs  subroutine  NEWDATA  [entry  NEWCARDS)  to  read  a  new 
directory  or  modify  an  existing  directory.  The  card  format  is  eighu  fields 
of  10  columns  each  with  all  quantities  left-justified.  Tw6  commands' in  the 
first  field  are  recognized:  ADD  and  ENDIRECT.  The  ENDIRECT  card  serves  to 
terminate  the  subroutine  and  causes  a  return  to  the  calling  program. 

\  ■ 

The  ADD  command  is  used  to  add  a  new  attribute  to  the  directory,  or,  in 
conjunction  with  a  prior  delete  command,  to  change  an  already  existing  ( 
attribute  in  the  directory. 

With  the  ADD  command  there  are,  in  addition  to  the  first  field,  six 
further  fields  of  data  on  the  input  card: 

1.  The  name  of  the  attribute  in  BCD. 

2.  The  input/output  conversion  format  [FORTRAN) 1 associ ated  with 
the  values  for  that  attribute. 

3.  Code  number  specifying  the  type  of  checking  to  be  conducted  for 
a  particular  attribute  (see  below). 

4.  The  default  value  of  the  attribute,  in  the  appropriate  ipput/ 
output  format  for  that  attribute  as  specified  by  item  2.  This 
is  the  value  that  will  be  associated  with  the  attribute  when 
it  is  in  an  undefined  state. 
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5.  Checking  specifications.  This  field  may  contain  the  word  LIST, 
which  specifies  list  checking  with  the  list  of  allowable 
attribute  values  to  follow  on  subsequent  cards;  the  word  NOC11ECK, 
which  specifies  no  checking  of  the  attribute  values;  or  the 
lower  value  of  the  allowable  range  of  values  for  this  attribute 
in  the  case  of  range  checking. 

6.  This  field  is  unused  in  the  event  of  list  checking,  or  no 
checking,  and  contains  the  upper  value  for  the  range  of 
allowable  values  of  the  attribute  in  the  case  of  range  checking. 

If  list  checking  is  specified  on  the  ADD  card,  this  card  is  followed  by 
any  number  of  cards  containing  the  list  of  allowable  values  for  tliut 
attribute,  eight  per  card,  in  the  format  specified  for  the  particular 
attribute.  The  fields  for  these  values  are  the  first  eight  columns  of 
each  10-column  field.  The  series  of  allowable  values  in  these  cards  is 
terminated  by  the  first  blank  field.  A  blank  field  can  be  specified  as 
an  allowable  attribute  value  by  including  the  value  BLANK  in  the  list. 

Appropriate  error  messages  are  written  on  an  error  message  tape  to 
point  out  inconsistent  operations  such  as  attempting  to  issue  a  command 
other  than  ENDIRECT  or  ADD,  or  attempting  to  add  attributes  which  already 
exist  in  the  directory.  The  error-checking  codes  permissible  for  the 


third  extra 

CODE 

field  are; 

TYPE  OP  DATA  TO  BE  INPUT 

CHECKING  SPECIFIED 

1 

Floating  point  numeric 

Range 

(Min-Max) 

2 

Floating  point  numeric 

List 

3 

Fixed  point  numeric 

Range 

(Min-Max) 

4 

Fixed  point  numeric 

List 

5 

Alphameric 

List 

6 

Alphameric 

No  checking 

7 

Special  conversion  for 
latitude,  longitude 

Range 

Subroutine  NEWDIR  is  illustrated  in  figure  93. 
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Fig-  93.  Subroutine  NEWDIR 
[Sheet  1  of  3) 
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Fig.  93. 


(cont .  1 

(Sheet  2  of  3) 


Fig.  93 .  (cent.) 

(Sheet  3  of  3) 
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SUBROUTINE  OUT 


PURPOSE : 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES.  CALLED: 
CALLED  BY; 


To  print  an  item  from  the  data  base  tape  DATADB. 

OUT 

None 


I CONTROL,  MY OUT ,  MYPRINT 

None 

NEWUATA 


Method 


Subroutine  OUT  examines  the  "type"  switch  (ICOM)  to  determine  the  print 
format.  ITEM  cards  are  printed  with  a  preceding  blank;  DEFINE  cards 
are  printed  with  a  preceding  *;  UNDEFINE  cards  are  printed  with  a  pre¬ 
ceding  **.  Subroutine  OUT  is  illustrated  in  figure  04. 
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Fig.  94.  Subroutine  OUT 
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SUBROUTINE  PRONLY 


PURPOSE : 

To  permit  the  user  to  print  the  contents  of  the 
data  base  tape  QUIKDB,  as  prepared  by  program 
QUIKBASE,  in  either  of  two  standard  output  formats. 

ENTRY  POINTS: 

PRONLY 

FORMAL  PARAMETERS: 

None 

COMMON  BLOCKS: 

HIST,  MYIDENT,  OPTIONS 

SUBROUTINES  CALLED: 

INITAP,  PRNTBASE,  PRNTDATA 

CALLED  BY: 

QUIKBASE 

METHOD 


The  PRINTDB  option  of  program  QUIKBASE  provides  the  capability  of  printing 
the  contents  of  the  data  base  tape  QUIKDB.  Inclusion  of.  the  PRINTDB 
option  card  in  the  program  run  deck  serves  to  select  the  option  and  also 
identifies  the  desired  output  print  format. 

When  this  option  is  selected,  subroutine  PRONLY  is  called  by  QUIKBASE  to 
determine  the  desired  print  format  and  call  the  appropriate  utility 
routine  to  accomplish  the  printing. 

As  shown  in  figure  95,  PRONLY  first  initializes  the  filchnndler  by 
calling  entry  INITAP.  The  third  and  fourth  data  fields  of  the  PRINTDB 
option  card  are  then  examined  to  determine  the  data  base  print  format 
which  is  to  be  used.  Either  or  both  of  the  standard  data  base  print 
formats  (i.e.,  PRNTDATA  or  PRNTBASE)  may  be  obtained. 

The  order  in  which  the  prints  are  requested  is  immaterial.  PRONLY  deter¬ 
mines  the  first  print  request  and  calls  the  associated  subroutine: 

PRNTDATA  or  PRNTBASE  (entry  PRNTBAS  is  used).  The  second  request  is 
processed  in  the  same  manner  and  control  is  returned  to  the  calling 
program . 

Subroutine  PRONLY  is  illustrated  in  figure  95. 
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SUBROUTINE  PRTCONT 


PURPOSE :  To  summarize  (print.1)  the  number  of  targets  by 

side,  region,  and  target  type. 

ENTRY  POINTS:  PRTCONT 


FORMAL  PARAMETERS: 

None 

COMMON  BLOCKS: 

IDESIGS,  NODESIGS ,  IWSTDE 

SUBROUTINES  CALLED: 

PAGESKP 

CALLED  BY: 

FASTSET 

Method 

Subroutine  PRTCONT  prints  information  tallied  by  subroutine  COUNTDS  in 
common  blocks  /TDESIGS/  and  /N0DES1GS/.  Subroutine  PRTCONT  is  illus¬ 
trated  in  figure  96. 


^  START  ^ 

1  ' 


SIDE=I!LUE 


8620 


Print  the  Number  of 
-►/  Targets  of  a  Given  ^ 
Type  lliat  Aro  Present  ^ 
in  Each  Region 


_ 5 

r - 

Increment  the  Total 
Number  of  Targets 
Per  Region  Which 
Have  Been  Printed 

E 


Yes 


More  Target \ 
Types  to  \ 
Consider?  / 


Print  the 
f  Totals  for  I 
Each 
Region 


I 


SIl>E=RED? 


f Yes 


^  RETURN  ^ 


SIDEsREO 


Fig.  <)6.  Subroutine  PRTCONT 
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SUBROUTINE  SliTlI) 


PURPOSE : 


ENTRY  POINTS: 


To  begin  a  data  base  from  cards  or  card  images 
and  to  write  the  IMTADB  tape. 

SETIl) 


PORMAL  PARAMETERS :  None 


COMMON  BLOCKS: 


1,  PI  LABEL,  1 1'TPRNT,  ITP,  MY  I  DENT,  MY  LABEL, 
NOPRINT,  OPTIONS,  TODAY,  TWORD 


SUBROUTINES  CALLED:  F I  LEI  INK ,  NUMCET 

CALLED  BY:  QtJIKBASE 


Method 


Subroutine  SETID  is  used  to  create  a  data  library  file  (DATADB)  from  a 
card  deck  or  a  tape  containing  BCD  card  images.  The  data  library  tape 
(DATADB)  .is  formatted  for  ease  in  updating  the  information  contained 
thereon.  The  tape  consists  of  a  series  of  card  images  with  throe 
identifiers  for  each  card.  The  identifiers  consist  of  a  set  number,  a 
line  number,  and  an  update  identifier;  c.g.,  the  date.  The  card  images 
arc  divided  into  sets,  each  with  a  unique  number.  Within  each  set,  each 
card  j.s  assigned  a  consecutive  line  number.  Thus,  each  card  is  uniquely 
defined  by  its  set  and  line  number.  The  update  identifier  is  an 
eight-character  word  which  aids  the  user  in  determining  the  run  which 
introduced  the  card  into  the  data  library  file. 

The  user  may  specify  that  one  of  three  methods  be  used  to  divide  the  data 
library  into  sets  (sec  SETID  Option,  program  QUIKBASE,  chapter  J,  User's 
Manual,  Volume  II).  The  default  option  (Sll)ECLAS)  causes  sots  to  be 
established  considering  the  attributes  SIDE  and  CLASS.  Under  this  method, 
the  data  base  directory  is  defined  as  the  first  set.  The  set  number  is 
then  increased  by  one  each  time  a  DEFINE  card  is  processed  winch  includes 
the  attribute  SIDE  and/or  CLASS.  The  MAXSET  option  causes  the  data  to  be 
divided  into  the  largest  feasible  sets.  Under  this  option,  the  directory 
is  defined  as  the  first  set,  and  each  succeeding  5,000  cards  are  defined 
as  :i  new  set.  Selection  of  rhe  MAXSET  option  also  causes  the  existing 
global  attribute  definitions  to  be  carried  over  to  the  next  set.  The 
third  option  (MANUAL)  enables  tile  user  to  specify  the  exact  points  in  the 
data  base  where  a  new  set  is  to  be  started.  The  user  may  also  establish 
the  set  numbers;  however,  they  must  be  assigned  in  ascending  order  and  the 
directory  must  be  the  first  set. 
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As  shown  in  figure  97,  SliTID  initializes  the  filchandler  and  prepares  to 
write  one  or  two  copies  of  the  DATADB  tape,  as  request'  d.  The  subroutine 
*eads  the  directory  cards;  if  manual  division  of  sets  has  been  selected, 
it  looks  for  and  uses  (if  present),  a  user-assigned  set  number.  The 
directory  is  read  and  written  to  one  or  two  tapes,  as  directed,  until  it 
reads  the  LNDIRLCT  card.  L-ach  attribute  name  is  stored  in  array  NS  as  it 
is  encountered.  On  option,  each  record  is  printed  with  its  assigned  set, 
line,  and  date  identification.  After  the  directory  has  been  completed, 
the  set  number  is  advanced  b>  one  if  manual  control  of  sets  has  been 
selected.  For  all  other  options,  the  set  number  is  made  two.  The  item 
cards  are  read  and  processed  according  to  the  set  option  chosen. 

If  the  card  is  neither  a  DEFINE  nor  an  UNDEFINE  card,  the  print  option  is 
checked  and  exercised  according  to  its  value;  the  set  and  line  number  and 
the  update  identifiers  are  inserted  into  the  data  record;  and  the  record 
is  written  to  one  or  two  tapes.  If  a  card  is  a  DEFINE  card,  a  NKWSET  or 
BHGINSET  card,  or  an  IJNDFFINE  card,  processing  is  as  described  below: 

1.  If  the  occurrence  of  cither  SIDE  or  CLASS  is  to  indicate  the 
end  of  one  set  and  the  beginning  of  the  next,  each  DEFINE  card 
is  searched  for  the  key  word;  i.o.,  S1DF  or  CLASS.  If  the  key 
word  is  found,  the  set  number  is  advanced,  the  line  number  is 
reset  to  one,  and  the  processing  continues  as  described  above. 

2.  If  manual  control  has  been  selected,  the  word  BECINSET  or  NEWSET 
is  sought  and,  if  found,  the  optional  set  number  is  sought.  If 
it  is  present,  i.t  is  used;  if  not  present,  the  set  number  is 
advanced  by  one  and  the  line  number  reset  to  one, 

3.  If  the  MAXSET  option  has  been  selected,  tile  list  of  attributes 
on  each  DEFINE  card  is  searched,  and  the  name  of  the  attribute 
and  its  value  are  saved.  The  occurrence  of  an  UNDEFINI:  card 
causes  the  attribute-value  pair  to  be  erased.  When  the  line 
number  reaches  1SLTSIZ,  the  preset  maximum*  for  a  set  (now  set  to 
5,000),  the  set  number  is  advanced;  the  line  number  is  reset  to 
one;  and  all  defined  attribut-value  pairs  are  written  to  tape 

as  the  beginning  items  of  the  new  set. 

When  the  card  END INPUT  or  LAST  is  encountered,  the  tape  writing  is  termi¬ 
nated  and,  if  two  tapes  have  been  generated,  the  tapes  are  compared.  If 
discrepancies  are  found,  they  are  printed,  if  no  errors  are  found,  the 
record  count,  together  with  the  message  NO  ERRORS,  are  printed.  Control 
is  returned  to  the  calling  program  QU1KBASE. 


‘Approximate  number.  All  ITEM  card  attributes  for  the  current  data  base 
item  arc  processed  before  the  set  number  is  changed. 
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CHAPTER  6 
PROGRAM  BASEMOD 


PURPOSE 


The  purpose  of  program  BASEMOD  is  to  alter  the  content  or  characteristics 
of  a  data  base  in  order  to  adapt  the  data  base  to  the  specific  scenario 
for  which  the  plan  is  being  developed.  Because  of  its  highly  specialized 
nature,  program  BASEMOD  should  be  examined  for  possible  revision  each 
time  a  new  war  plan  is  to  be  generated. 


INPUT  FILES 


There  are  two  distinct  sets  of  input  tapes  which  may  be  required  by 
program  BASEMOD  --  one  for  post-QUIKBASE  operation,  and  one  for  post- 
INDEXER  operation. 

When  the  program  is  executed  in  the  former  instance,  the  only  required 
input  tape  is  QUIKDB,  the  game  base  tape  produced  by  program  QUIKBASF. . 
If,  however,  the  user  desires  to  exercise  either  the  TARDEF  or  the  ZONE 
option,  a  second  tape  is  required.  This  tape  is  produced  by  program 
STACKER,  a  program  of  the  NMCSSC  QUICK  Data  Base  Generator  System 
(QDBGS) . 

The  input  from  the  QUIKDB  tape  consists  of  the  entire  data  base;  the 
input  from  program  STACKER  is  contained  in  two  common  blocks.  Common 
/XLAT/  contains  the  necessary  data  for  the  introduction  of  TARDEFs, 
while  common  /MYZONES/  contains  the  data  required  for  the  determination 
of  cones. 

When  program  BASEMOD  is  executed  post- INDEXER ,  the  only  required  input 
tape  is  INDEXDB,  the  indexed  data  base  produced  by  program  INDEXER. 
Again,  input  from  this  tape  consists  of  the  entire  data  base. 
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OUTPUT  FILES 


In  both  post-QUIKBASE  and  post-INDEXER  operation,  there  is  one  output 
tape  produced  by  program  BASEMOD.  This  tape  contains  the  modified 
version  of  the  game  data  base.  In  the  former  instance,  this  tape  is 
QKMODDB,  while  in  the  latter  instance,  the  tape  is  TNMODDB . 


CONCEPT  OF  OPERATION 


The  exact  functions  of  program  BASEMOD  are  directly  related  to  the  par¬ 
ticular  war  plan  being  constructed;  the  program  described  herein  is  one 
which  currently  performs  the  modifications  desired  by  the  NMCSSC.  Since 
program  BASEMOD  may  be  run  either  after  program  QUIKBASE  or  after  program 
INDEXER,  there  are  two  distinct  sets  of  program  capabilities  and  user 
options.  When  BASEMOD  is  run  after  program  QUIKBASE,  the  program  performs 
such  tasks  as:  removal  of  inappropriate  targets  (attribute  RESERVE=0) 
from  the  game  data  base;  establishing  the  number  of  aircraft  per 
squadron  NOPERSQN,  number  in  commission  NOINCOM,  and  number  on  alert 
NOALERT  for  each  bomber  and  tanker  unit;  selection  of  the  appropriate 
type  name  TYPE,  value  VAL,  and  relative  effectiveness  L'FECTNES  for 
each  fighter-interceptor  squadron.  Further,  the  user  has  available  the 
options  to  specify,  for  urban/industrial  targets,  the  attribute  VAL  as 
a  function  of  either  index  of  general  industrial  worth  (1G1W)  or 
population  (POP);  to  calculate  bomber  local  defense  parameters  (TAROEFs); 
and  to  calculate  defensive  zones  for  either  or  both  sides. 

When  run  after  program  INDEXER,  BASEMOD  provides  the  capability  of 
selecting  or  deleting  targets  on  the  basis  of  geographic  location 
(x.e.,  country  location,  CNTRYLOC) . 


IDENTIFICATION  01-'  SUBROUTINE  FUNCTIONS 


Program  BASEMOD  is  the  main  control  routine.  This  subroutine  reads  the 
option  card  which  specifies  whether  the  run  will  be  post-QUIKBASE  or 
post-INDEXER  and  calls  the  appropriate  subroutines. 
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Subroutine  DUMOl)  Is  the  controlling  subroutine  for  this  mode  of  operation 
It  calls  subroutine  RDTYPLS  to  read  in  the  values  of  the  scaling  factors 
to  he  used  for  the  calculation  of  NOINCOM  and  NOAI.PRT,  and  it  reads  in 
the  remainder  of  the  input  parameters  itself.  If  cither  the  ZONP  or 
TARDhP  option  is  to  be  exercised,  it  calls  subroutine  STKRIN  to  read  in 
the  required  data  for  the  calculations.  Subroutine  I1HMOI)  performs  all  of 
t lie  required  data  base  modifications  itself,  except  for  the  determination 
of  TARDP.Ps  (K  desired)  which  is  done  in  subroutine  TARDPPS,  and  the 
determination  of  ZONIiS  (if  desired)  which  is  done  in  subroutine  MYZONIi. 
The  record  by  region,  type,  and  side  of  the  targets  deleted  from  the  game 
base  is  kept  by  subroutine  NUMDP.L.  The  record  by  region,  typo,  and  side 
of  the  targets  kept  is  maintained  in  subroutine  COUNTDP.S. 

Subroutine  ADDVAL  maintains  a  record  of  target  value  by  class,  type,  and 
side  and  prints  this  summary  after  the  processing  is  completed.  Sub¬ 
routine  PRINTIT  determines,  on  the  basis  of  the  user-specified  parameter, 
whether  a  given  item  from  the  data  base  should  be  printed  and,  if  so, 
prints  it. 


Post  -  INDEXER  Operation 

Subroutine  INDMOD  is  the  controlling  subroutine  for  this  mode  of  oper¬ 
ation.  It  reads  in  all  of  the  user  parameters,  and  it  performs  the 
necessary  data  base  modifications.  It  calls  subroutine  COUNTDP.S  to 
maintain  a  record  by  region,  type,  and  side  of  the  targets  kept,  and  it 
calls  subroutine  NUMDIii,  to  maintain  a  summary  by  region,  type,  and  side 
of  the  targets  deleted.  Subroutine  PRTCOUNT  is  called  to  print  the 
summaries  kept  in  subroutine  COUNTDRS. 


COMMON  BLOCK  DPPINTTION 

Pxt.cnia)  Common  Blocks 

Program  BASLMOP  references  the  following  utility  routine  common  blocks, 
which  arc-  described  in  appendix  A  of  this;  manual:  /LUITAPH/,  /LDITP.RM/, 
/IIP/,  /MYIDP.NT/,  /NOPRINT/,  and  /PROCESS/. 

Internal  Common  Blocks 

Table  7  lists  the  common  blocks  used  within  IVASRMOD  and  identifies  the 
arrays  contained  in  them. 


Table  7,  Program  BASEMOD  Common  Blocks 


VARIABLE 

(Sheet  I  of  5) 

BLOCK 

OR  ARRAY 

DESCRIPTION 

CUTIGIW 

1 

Dummy  constant 

JCOUNTRY 

List  of  countries  to  be  assigned  values  of 

MINIGIW 

MINIGIW 

List  of  minimum  allowable  values  of  the  attri¬ 
bute  1G1W 

NOIGIWS 

Number  of  countries  in  the  list  for  each  side 

IDESIGS 

IDESIGS 

Eirst  two  letters  of  target  designator  code 

DESIGNO 

Array  containing  summaries  by  region  and 
type  of  items  kept 

JCARI1 

JCARD (1) 

PRINT,  if  a  print  of  items  in  the  data  base 
is  desired;  blank,  otherwise 

JCARD (2) 

Frequency  of  above  print 

JCARD (3) 

SELECT,  if  the  items  in  the  country  list  are 
to  be  kept;  DELETE,  if  they  are  to  be 

deleted 

JCARD (4) 

Number  of  countries  in  the  country  list 

JSIDE 

JSIDE 

Hollerith  side  name 

LDESIGS 

LDESIGS 

First  two  letters  of  target  designator  code 

LDESIGNO 

Array  containing  summaries  by  region  and  typo 

of  items  omitted 
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BLOCK 

LODESIGS 

MYS1DE 

MY20NES 


Table  7.  (cont , ) 
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VARIABLE 

OR  ARRAY  DESCRIPTION 

LODESIGS  Number  of  different  types  of  weapons  deleted 

(for  each  side) 

LLMIN  Internal  index  parameter;  =1  for  BLUE,  =251 

for  RED 


MYSIDE  Current  side 


BLAT 

BLONG 

1 Z  IT 

ILINK 
M INBLUE 
MAX BLUE 
MINRED 
MAXRED 
M INTEST 
JLINK 
NTEST 
MIN 


Zone  data  from  program  STACKER 

Latitude  associated  with  the  point  of  origin 
of  a  leg 

Longitude  associated  with  the  point  of  origin 
of  a  leg 

The  BLEGNO  associated  with  the  last  IPOINT 
which  describes  a  zone 

Value  of  LINK  associated  with  BLEGNO 

Minimum  BLUE  zone  index  number 

Maximum  BLUE  zone  index  number 

Minimum  RED  zone  index  number 

Maximum  RED  zone  index  number 

Internal  BLEGNO  index  parameter 

Internal  LINK  index  parameter 

Internal  counter 

Internal  BLEGNO  index  parameter 
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Table  7,  (coat.) 
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VARIABLE 

OR  ARRAY  DESCRIPTION 

NODliSTGS  Number  of  different  types  of  weapons  (for 

each  side) 

KKMIN  Internal  index  parameter;  =1  for  Bl.lll!,  =  251 

for  red 

NRTYPES  NRTYPES  Number  of  weapon  types  for  current  side  for 

which  NOALERT  and  NOINCOM  are  to  be  scaled 

MTYPES  Same  as  NRTYPES,  but  in  alphameric  format 

NNTYPES  Type  name  of  each  weapon  type  for  which 

NOALf.Ri'  and  NOINCOM  are  to  be  computed 

ALERTNO  NOALERT  scaling  factor  for  each  weapon  type 

COMINNO  NOINCOM  scaling  factor  for  each  weapon  type 

PRINTS  IFREQ  Desired  frequency  of  prints 

IPRT  Index  used  to  count  number  of  items  processed 

between  successive  prints 

[PRINT  =1  if  prints  arc  desired;  =0  if  not 

TYPENAME  TNDBEG  Smallest  index  number  for  each  type 

TYPENAMR  Type  names  in  order  of  increasing  index 

number 

CUMNO  Cumulative  number  of  types  in  each  class 

BTYPES  Number  of  BLUE  side  types  in  each  class 


BLOCK 
NODES IGS 


I  NEC  LAS 


Smallest  index  number  in  each  class 


BLOCK 

XLAT 


Table  7.  (cont.) 
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VARIABLE 

OR  ARRAY  D11SCR1 PTION 

SAM  data  from  program  STACKER 

XLAT  Array  containing  the  latitude  of  the  centroids 

of  each  SAM  site  complex  (locations  1  through 
500  store  BLUE  data;  501  through  1,000  store 
RED  data) 

X LONG  Array  containing  the  longitude  of  the  centroids 

of  each  SAM  site  complex  (same  storage  as  above) 

RADIUS  The  defensive  radius  of  each  SAM  site  complex 

NUMBATTS  Number  of  SAMs  located  within  the  radius  of 

the  complex 

J INDEX  Index  of  the  first  SAM  site  in  each  major  geo¬ 

graphical  area 

L INDEX  Index  of  the  last  SAM  site  in  each  major  geo¬ 

graphical  area 

ATRST  Values  of  longitude  which  subdivide  the 

complexes  into  reasonably  well  defined  sitca 

NBAREAS  Not  used 

NRAREAS  Not  used 

Ni'ARSIlT  TARDEE  number  which  is  associated  with  a  high- 

altitude  defense  of  a  given  strength 

NTARSLO  TARDEE  number  which  is  associated  with  a  low- 

altitude  defense  of  a  given  strength 

Contains  values  which  divide  the  total  number 
of  SAMs  into  several  distinct  ranges 


NTARTHST 


VAR1ABI.H 
BLOCK  OR  ARRAY 

XLAT  (cent , ) 

XTliST 

IAX1I1 

MAXL.O 

FAC LOW 

LAURAS 

LNLOW 

I  LOW 

III  Kill 

ITARTAPl.i 
.1.1  LOW 

JARHAS 

JI.OCS 


'la  Me  7.  (coni.) 

f shoot  r.  of  ro 

DHSCklPTi  N 

Factor  used  to  determine  if  a  SAM  complex  can 
provide  high- altitude  defense  to  a  target 

The  maximum  TAROF.F  w)  eh  can  be  assigned  for 
high-al t i fade  defenses 

The  maximum  TARDHH  which  can  bo  assigned  for 
low-altitude  defenses 

Factor  used  to  determine  whether  a  value  of 
lARDHFLO  should  he  assigned  to  a  given  target 

Number  of  geographical  areas  into  which  SAM 
sites  are  divided 

live  beginning  indices  of  the  areas  n- •  BI.UH 
and  Rlil)  (1  and  101,  respectively) 

Lower  index  indicating  where  storage  of  data 
begins  for  BI.UH  and  kid),  respectively,  in 
NTARSII1  ,  NTARSI.O,  and  NTARTHST 

Index  indicating  where  the  storage  of  data 
ends  for  BI.UH  and  RHP  (7  and  17,  respectively) 
in  the  abovement ionc J  arrays 

Not  used 

Beginning  .indices  of  SAM  complexes  for  BI.UH 
end  RHU  (1  and  501,  respectively) 

Number  of  areas  in  »  which  SAM  complexes  are 
d i vided 

Number  of  SAM  complexes  for  each  side 
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PROGRAM  BASEMOD 


PURPOSE :  To  determine  whether  the  prograni  is  being  run 

post-QUIKBASE  or  post-INDEXER,  and  to  transfer 
control  to  the  appropriate  subroutine. 

ENTRY  POINTS:  BASEMOD  .  ' 

FORMAL  PARAMETERS:  None 

1  ' 

COMMON  BLOCKS :  None 

SUBROUTINES  CALLED:  DBMOD,  TNDMOD 

CALLED  BY:  None 


Method 

'  1 

The  variable  IALT  is  read  from  an  input  data  card.  If  IALT  is  zero  or 
negative,  the  run  is  post-QUIKBASE  and  subroutine  DBMOD  is  called.  If 
IALT  is  equal  to  one  or  more,  the  run  is  post- INDEXER  and  subroutine 
INDMOD  is  called.  After  the  subroutine  returns  the  program  stops. 

Program  BASEMOD  is  illustrated  in  figure  98. 


5?0 


Call 

Subroutine 

INDMOD 


SUBROUTINE  ADDVAL 


PURPOSE: 


ENTRY  POINTS: 
FORMAL  PARAMETERS: 


To  accumulate  target  value  by  class,  type,  am) 
side,  and  to  print  the  information  in  tabulated 
form. 

ADDVAL,  PRNTVAL 


IS 

-  Value 

of 

attribute 

SIDE 

rc 

-  Value 

of 

attribute 

I  CLASS 

IT 

-  Value 

of 

attr i bate 

TYPE 

V 

-  Value 

of 

attribute 

VAI. 

JC 

-  Value 

of 

attribute 

CLASS 

COMMON  BLOCKS:  None 

SUBROUTINES  CALLED;  None 

CALLED  BY:  DBMOD 


Method 


Each  time  the  subroutine  is  entered  through  the  entry  point  ADDVAL,  the 
value  of  the  item  being  considered  is  added  to  the  total  value  of  the 
other  items  of  the  same  class,  type,  and  side  which  have  already  been 
considered.  In  addition,  a  count  of  the  total  number  of  items  kept  in 
each  of  the  categories  (various  combinations  of  class,  typo,  and  side) 
is  maintained.  If  the  item  under  consideration  is  the  first  with  its 
class,  type,  and  side  characteristics,  a  new  category  is  created  for  it. 

When  the  subroutine  is  entered  through  the  entry  point  PRNYVAI.,  the 
summaries  which  have  been  maintained  are  printed  out. 

Subroutine  ADDVAL  is  illustrated  in  figure  R9. 
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START 


I'.nt  ry 
AUDVAL 


Fig.  99.  Subroutine  ADDVAL 
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SUBROUTINE  COUNTDES 


PURPOSE  : 

To  keep  a  tally  by  region  and  type  of  the  tar¬ 
gets  kept  for  each  side  after  processing  by 
subroutine  DBMOD. 

ENTRY  POINTS: 

COUNTDES 

FORMAL  PARAMETERS: 

II  -  Equals  l  if  side  is  BLUE;  2  if  side  is 

RED 

MYDESIC  -  Designator  code  of  item 

IREG  -  Region  in  which  item  is  located 

COMMON  BLOCKS: 

IDESIGS,  NODESIGS 

SUBROUTINES  CALLED: 

None 

CALLED  BY: 

DBMOD,  INDMOD 

Method 


Each  time  the  subroutine  is  entered,  the  total  number  of  items  retained 
with  the  same  type,  region,  and  side  is  incremented  by  one.  The  region 
is  determined  from  the  target  designation  code.  Subroutine  COIJNTDHS  is 
illustrated  in  figure  100. 


Fig.  100.  Subroutine  COUNTDIiS 
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SUBROUTINE  DBMOD 


PURPOSE ; 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 

SUBROUTINES  CALLED: 

CALLED  BY: 


To  control  the  information  processing  when  pro¬ 
gram  BASEMOD  is  run  post-QUJKRASE. 

DBMOD 


None 

CUTK'.IW,  E  DITAPE  ,  L  DITERM,  IDES  ICS,  ITP,  LUES  ICS, 
LODES  ICS,  MY I  DENT,  MYSIDE,  NODES  ICS,  NOPRINT, 
NR'IYPES,  PRINTS,  PROCESS 

ADDVAL,  COUNTDES,  INITAPE* ,  INITEDIT,  INPITEM, 

MY  ZONE,  NEXTITEM,  NUMDEL,  NUMGET,  OUT ITEM, 

PACESKP ,  PRINTIT,  PRNTVAL,  RDTYPES ,  STKRIN, 
TARDEFS 

BASEMOD 


Method 


Subroutine  DBMOD  effects  a  sequential  examination  of  each  item  in  the 
game  data  base  (contained  on  the  QUIKDB  tape).  Each  item  is  read  in, 
filtered  through  a  series  of  tests,  and  assigned  appropriate  values  for 
certain  of  its  attributes.  The  item  is  then  either  retained  or  deleted 
from  the  game  data  base.  The  12  tasks  accomplished  by  this  processing 
are : 

1.  Targets  which  arc  inappropriate  for  the  plan  under  consideration 
i.e.,  those  targets  assigned  the  attribute  RESERVPX),  arc 
excluded  from  further  consideration. 

2.  The  appropriate  number  of  bombers  or  tankers  for  each  bomber  or 
tanker  squadron  (NOPERSQN)  is  selected,  depending  upon  the  par¬ 
ticular  plan  being  developed  (Initiative,  Surprise,  or 

Retali  atoi-y) . 

3 .  The  number  of  bombers  or  t;uikcrs  in  commission  (NOINCOM)  for 
each  bomber  or  tanker  squadron  is  calculated  by  specifying  that 
NOINCOM  is  equal  to  a  user-specified  fraction  of  NOPERSQN. 


*Scc  subroutine  El  LEI  INK 


■I.  The  number  of  bombers  or  tankers  which  arc  on  alert  (NOALLRT) 
for  each  squadron  .is  calculated  by  specifying  that  NOAl.liRT  is 
equal  to  a  user-specified  fraction  of  N01NC0M. 

5.  The  appropriate  value  of  the  attributes  TYPli,  VAI,,  and  UFT.CTNliS 
Is  established  for  each  fighter  interceptor  unit  based  on  the 
user-input  parameter  POSTURli.  If  POSTURH=l,  these  attributes 
are  assigned  the  values  of  the  attributes  TYPli  1 ,  VAl.l ,  and 
lil-'HCNLiSl ,  respect  i  vc  ly .  If  POSTURLi=2,  the  values  of  the 
attributes  TYPli  2,  VAL2,  and  l;!;bCNI:S2  are  assigned. 

0 .  The  relative  value  (VAI.)  of  urban/industrial  targets  is  calcu¬ 
lated  as  a  function  of  either  general  industrial  worth  (IGIW) 
or  population  (POP). 

7.  If  the  TARDliF  option  is  exercised,  each  target  (opposing  side) 
is  processed  and  the  level  of  local  bomber  defense  available  at 
the  target  is  calculated. 

8.  If  the  ZONli  option  is  exercised,  items  in  ICLASS  4  and  5  (defen 
sive  command  and  control  sites  and  interceptor  bases,  respec¬ 
tively)  ere  processed  to  determine  the  air  defense  zone  in 
which  the  item  is  located. 

9.  The  value  of  the  attribute  I RUG  is  determined  based  on  the 
target  designator  code  DliSIG  assigned  to  the  item. 

10.  bach  Blue  (SIDB=BLUli)  installation  is  assigned  a  value  for  the 
attribute  FLAG.  The  assigned  value  (numeric  code  1  through 

9  established  based  on  ICLASS)  is  subsequently  used  in  program 
Al.OC  to  impose  user-restrictions  on  the  allocation  of  weapons 
(see  Program  ALOC,  User-input  Parameters,  FLAGRLiST  Function  -- 
Restriction  of  Weapons  Using  FI.AG  Attribute  in  chapter  3  of 
User's  Manual,  Volume  II). 

11.  Targets  may  be  deleted  from  the  game  base  on  the  basis  of  TASK 
or  MIN1G1W  (user-specified  parameter  which  establishes  the 
minimum  index  of  general  industrial  worth  to  be  considered). 

12.  The  appropriate  value  of  the  attribute  DBL,  (probability  of  des¬ 
truction  before  launch)  is  chosen. 


Subroutine  UliMOD  is  illustrated  in  figure  101. 


Initialize 


Fig.  101.  Subroutine  DBMOl) 
(Sheet  1  of  2) 
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I*  Item ' 
MUjIIc, 
Bomber,  or 
Tanker?  , 


I>  Item  \ 
Interceptor?' 


»  1 

325 

/tl  Item\  No  ,  ! 

^Missile?/ 

Process 

NOPEKSlJN. 

NOALtRT, 

NOINCOM 

Yes 

1  » 

Process 

AI.RRTORI..  -- 

_ V 

NALRTDBL 

Process  VAL.I. 
EFBCTNES,  TYPcI 


<1*  Item\  (Jo 
a  City? 

Process 

VAL 


Cali 

TAIIDEFS 


ISMT" 
/  Is  Item  \ 
Defens Ive 
Control  or 
^interceptor?/ 


'Should  Item' 
be  Omitted? 
RESERVE. 0 


,  / Arc \ 
H  TAIIDEF's  > 
\  Needed?/ 

_^JnT 

952 

/  Arc  lone 
Assignments 
,  Ncodcd? 


300 

Call 

NUMDEI. 


FUNCTION  INPEXTYP 


PURPOSE : 


UNTRY  POINTS: 
FORMAL  PARAMETLRS: 


COMMON  BLOCKS: 
SUBROUTINES  CALLUP ; 
CALLED  BY: 


To  compare  the  value  of  NUMBATTS  with  the  value 
of  NTARTHST  until  the  region  in  which  the  value 
of  NUMBATTS  lies  is  ascertained. 

1NDEXTYP 

NUMBATTS  -  Number  of  SAMs  located  within  the 

radius  of  the  complex  being  considered 
ISIDO  -  Hollerith  value  of  side 

JS  11)11,  XL  AT 

None 

TARDUFS 


Method 


This  function  subroutine  is  entered  with  a  given  value  for  the  parameter 
NUMBATTS.  The  range  of  allowable  values  of  NUMBATTS  has  been  divided 
into  (IUIGH-ILOW+1)  equal  segments,  and  the  lower  and  upper  limits  of 
each  of  the  segments  have  been  stored  in  the  array  NTARTHST  (IHIGI1  and 
I LOW  are  externally  specified  index  parameters).  A  search  is  then 
implemented  to  determine  the  segment  in  which  the  value  of  NUMBATTS  under 
consideration  lies.  This  segment  is  characterized  by  the  index  number 
of  the  upper  limit  of  the  segment  (e.g.,  if  NUMBATTS  lies  between 
NTARTEST(S)  and  NTARTHST (4),  the  value  of  TNDEXTYP  for  NUMBATTS  will 
be  4) , 


Function  lNDHXTYP  is  illustrated  in  figure  102. 


SUBKOUUNL  ' NDMOD 


PURl’OSli: 

l-NTRY  POINTS: 
PORMAL  PARAMLTiiRS : 


COMMON  BLOCKS: 


SCRI'OIJ !  i.M.s  (Al.l.l  P 


CALLf.P  BY: 


Mot'll'  ■! 

JNIiMOL  Ivy  i  d:-  |;y  n 
count  n  i  odes  to  In 
of  r.-ipM  cal  1 
exam:  Jin  i  ion  ot  I  lie 
retain:--  or  deletes 
selected  1\)]-  reieni 

Sub  rout  i  ae  I  NLMiH) 


To  control  the  informat  ion  processing  when  pro 
(irani  BASP.MOP  is  run  post- lNPLXLk, 

I NDMOD 

None 

liDJT/MM- ,  LPIThRM,  I  liLSICS,  IIP,  .ICAKD,  I.!  1  ’ '  Hf- 
LOPLSION,  Mi  I  I'l  VI  ,  NOPl.SIC.',,  Mll-RIM,  I'ROlL' 
TlTLNAMI. 

ABORT,  i.OU.VII'I.S,  I.MIAI'L',  l.\  i  I  LIU'!  ,  IM'dl.M, 
NHXTITL'M,  MUMDI.I.,  K'lMllLT,  OUTITLM,  I’AOLSP.P , 
PklTLM,  I'RTCOilfvl  ,  STOUM’iP. ,  TLRM'i'AP* 

B AS  I : MOD 


.nidi  nj>  tin'  input  pa  r.-iiiii  t  e  i  s  whieh  'unhide  a  list  ol 
'  used  .in  so  I  eel  i  up,  or  deleting  targets  <  m  i  the  Inr'i-.- 
ation.  The  progran1  thru  performs  at'  i  {  cm- by  -  i  tern 
name  data  base  as  cent  ai  in  u  '.mi  tin  IMiLMil1.  tape  am! 
items  in  accordance  eith  the.  input  criteria.  items 
.ion  are  output  to  ti.c  INMOlil  L  tape. 

is  illustrated  in  fiia:;. 


4J 


Call 

COUNTDOS 


Should  This 

Item  Be 
Printed? 


FUNCTION  MYZOm: 


PURPOSE : 


To  determine  ir  which  defensive  zone  a  target 
lie.  . 


ENTRY  POINTS: 


myzoni: 


FORMAL  PARAMETERS : 


ZLAT  -  Latitude  of  itein 
ZLONC;  -  Longitude  of  item 


COMMON  1U, PC  KS :  MVS  I  UP,  MYZONFS 

SUBROUTINES  CALLED :  DIFFLONC. 


CALLED  BY; 


DBMOD 


Method 

The  subroutine  considers  each  defensive  zone  for  the  side  corresponding  to 
that  of  the  target,  and  determines  the  sum  of  all  angles  formed  by  the  lines 
connecting  the  target  point  to  two  adjacent  boundary  points  of  the  zone.  If 
the  target  is  in  the  zone,  or  on  a  boundary,  the  sum  will  be  360°,  and  if 
the  target  is  outside  the  zone,  the  sum  will  he  0°.  As  soon  as  a  target  js 
found  to  be  within  a  zone,  it  is  identified  as  belonging  to  that  zone  by 
assigning  it  the  zoic  index.  Thus  if  the  target  is  on  the  boundary  between 
two  zones  it  will  be  assigned  the  smaller  zone  index.  If  the  target  is  not 
in  a  zone  of  its  side  it  is  assigned  a  zone  index  at  zero. 

Function  MYZONP  is  illustrated  in  figure  -104. 
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SUBROUTINE  NUMDEL 


PURPOSE: 

To  keep  a  tally  by  region  and  type  o£  the  target 
which  have  been  deleted  for  each  side  after  pro¬ 
cessing  by  subroutine  DBMOD. 

ENTRY  POINTS: 

NUMDEL 

FORMAL  PARAMETERS: 

II  -  Equals  1  ifside  is  BLUE;  2  if  side  is 

RED 

MYDESIG  -  Target  designator  code  of  item 

IREG  -  Region  in  which  item  is  located 

COMMON  BLOCKS: 

LDESIGS,  LODES I GS 

SUBROUTINES  CALLED: 

None 

CALLED  BY: 

DBMOD,  INDMOD 

Method 


Each  time  the  subroutine  is  entered,  the  total  of  the  number  of  items 
deleted  with  the  same  type,  region,  and  side  as  the  one  under  con¬ 
sideration  is  incremented  by  one.  If  the  item  under  consideration  is 
the  first  one  with  its  particular  characteristics,  a  new  category  is 
created  for  it. 


Subroutine  NUMDEL  is  illustrated  in  figure  105. 
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SUBROUTINE  PRINTIT 


PURPOSE : 


ENTRY  POINTS: 

FORMAL  PARAMETERS : 
COMMON  BLOCKS: 
SUBROUTINl-S  CALLTI) : 
CALLED  BY; 


To  determine  whether  the  item  being  processed  by 
subroutine  DBMOD  should  be  printed  and,  if  so, 
prints  it. 

PRINTIT 

None 

PRINTS 

PRTTF.M 

DBMOD 


Method 


This  subroutine  maintains  a  record  of  the  number  of  items  processed  and 
kept  by  subroutine  DBMOD.  Each  time  it  is  entered,  a  check  is  made  to 
determine  whether  the  current  item  being  processed  should  be  printed. 

If  it  is  to  be  printed,  subroutine  PRITEM  is  called  to  print  the  attribute- 
value  pairs  for  the  item. 

Subroutine  PRINTIT  is  illustrated  in  figure  106. 


SUBROirriNI-  PRT COUNT 


PURPOSE: 

ENTRY  POINTS; 

FORMAL  PARAMETERS : 
COMMON  BLOCKS : 
SUBROUTINES  CALLED: 
CALLED  BY: 

Method 

A  print,  for  each  side  d 
type  and  region.  Also, 
presented. 


To  effect  the  printing  of  the  records  of  target 
count  by  region  which  were  kept  by  subroutine 
COUNTINGS  for  the  targets  processed  and  kept  by 
subroutine  INDMOD, 

PRT COUNT 

None 

IDESIGS,  NODES I GS 

PAGESKP 

INDMOD 


s  made  of  the  targets  kept  in  the  data  base,  by 
the  total  number  of  targets  in  each  region  is 


Subroutine  PRTCOUNT  is  illustrated  in  figure  107. 


SUBROUTINE  RDTYPES 


PURPOSE : 


ENTRY  POINTS: 

E'ORMAL,  PARAMETERS : 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  rend  in  the  values  of  the  scaling  factors  to 
be  used  for  the  calculation  of  N01NC0M  and 
NOALERT. 

RDTYPES 


LSI  1)1!  -  Hollerith  value  of  side 
NRTYPES 


NUMCET 
1)11  MOD 


Method 


This  subroutine  is  entered  once  to  read  the  data  for  the  BLUE  side  and  a 
second  time  to  read  the  data  for  the  RED  side.  When  it  is  entered,  a 
card  is  read  which  indicates  how  many  cards  with  scaling  factors  arc  to 
be  read,  and  these  cards  are  then  read.  The  number  of  weapon  types  to  be 
scaled,  the  scaling  factor  for  NOALERT,  and  the  scaling  factor  for 
NOINCOM  for  the  BLUE  side  are  stored  in  locations  1  through  50  of  the 
arrays  NNTY Pi"'t ,  ALERTNO,  and  COMINNO,  while  the  data  for  the  RED  side  are 
stored  in  locations  51  through  100. 

Subroutine  RO'WPES  is  illustrated  in  figure  108. 


H ,  ids. 


Sulmnitinc  RDTYI 


SUimOUTINti  STKRIN 


PURPOSli : 


liNTRY  POINTS : 

FORMAL  PARAMHTlikS : 
COMMON  BLOCKS : 
SUBROUTINES  CALLED : 
CALLED  BY: 


To  road  in  the  arrays  in  common  blocks  /XLAT/  and 
/MYZONliS/  from  the  output  tape  created  by  program 
STACKER  and  to  assign  initial  values  to  certain 
variables. 

STKRIN 

None 

I  IP ,  .JSIIU;,  MYIDIiNT,  MYZONliS ,  NOPRINT,  XI. AT 
RDARRAY*,  SETREAD,  THRMTAP* 

Dll  MO  I) 


Method 

Thin  subroutine  reads  in  the  necessary  data  from  the  tape  created  by  pro¬ 
gram  STACKER  to  enable  the  calculation  of  TAR  blips  and  the  determination 
of  ZONES.  The  data  used  for  the  former  task  are  contained  in  common 
block  /XLAT/,  while  that  required  for  the  latter  task  are  contained  in 
common  block  /MYZONliS/. 


Subroutine  STKRIN  is  illustrated  in  figure  109. 


SU,  ROUTINE  TARDEFS 


PURPOSE :  To  assign  values  of  JTAKII1  and  JTARLO  to  charac¬ 

terize  a  given  target.  These  parameters  describe 
the  amouni:  of  high-altitude  and  low-altitude 
terminal  SAM  (surface-to-air  missile)  defenses 
that  are  available  to  defend  the  target. 

ENTRY  POINTS:  TARDEFS 

FORMAL  PARAMETERS:  JTAR11I  -  Parameter  characterizing  the  level  of 

high -altitude  local  bomber  defenses 
JTARLO  -  Parameter  characterizing  the  level  of 
low-altitude  local  bomber  defenses 


YLAT 
YLONC 
IS  IDE 

-  Latitude*  of  target 

-  Longitude  of  target 

-  Hollerith  value  of 

being  considered 
being  considered 
side 

COMMON  BLOCKS: 

.IS  IDE, 

XL  AT 

SUBROUTINES  CALLED: 

DIFFLONG,  DSTF ,  INDBXTYP 

CALLED  BY: 

DBMOD 

Method 

Within  QUICK,  the  attributes  TARDEFIII  and  TARDEFLO  arc  defined  for  each 
potential  target.  The  \aluc  assigned  these  attributes  represents  the 
level  of  local  bomber  defenses  available  to  defend  the  target  against 
attacks  expected  at  high  altitude  and  at  low  altitude,  respectively. 
Normally,  these  attribute-value  pairs  are  defined  by  NMCSSC  with  the  use 
of  programs  which  are  external  to  the  QUICK  system;  however,  program 
BASEMOD  provides  an  alternate  method  for  assigning  those  values.  When 
this  option  is  exercised,  subroutine  TARDEFS  is  called  for  each  target  to 
compute  and  to  return  to  the  calling  subroutine  the  values  of  dlARlIl  and 
JTARLO,  the  values  that  will  be  assigned  to  TARDEFIII  and  TARDEFLO, 
respectively.  To  perform  this  task,  the  location  of  the  target  is  con¬ 
sidered,  and  the  number  of  SAM  batteries  (NBATTS)  capable  of  providing 
high  and  low  altitude  defense  for  the  target  arc  determined.  This 
information  is  then  used  for  the  calculation  of  the  values  of  JTAR111  and 
.JTARLO.  The  data  describing  the  SAM  defenses  which  are  stored  in  common 
block  /XL.AT/  arc  developed  in  program  KRUKC11,  a  program  external  to  the 
QUICK  system.  If  the  TAKbEFS  option  is  to  be  exercised,  these  data  must 
be  provided  as  input  to  program  BASEMOD. 


i 


Program  K  RUNG  I  considers  all  SAM  sites  within  the  target  area  and  groups 
these  sites  in  circular  complexes  on  the  basis  of  the  effective  range  of 
the  SAM  sites,  liach  SAM  complex  is  characterized  by  the  latitude  and  ’ 
longitude  of  its  centroid,  its  radius,  an,d  the  number  of  SAM  batteries 
(NUATTS)  associated  with  the  complex.  Each  SAM  site  is  included  in  one, 
and  only  one,  complex.  KRUNCH  orders  and  indexes  the  SAM  complexes 
according  to  increasing  longitude,  and  then  assigns  to  each  complex  a 
sector  index.  These  sectors  are  established  to  facilitate  subsequent 
processing  and  are  formed  through  a  longitudinal  division  of  the  land  area 
under  consideration.  When  called, 'Subroutine  TARDIiPS  utilizes  these  data 
and  determines  first  the  area  and  then  the  complexes  in  which  the  given 
target  lies.  On  the  basis  of  this  information,  vqiues  of  JTAR11I  and 
JTARLO,  parameters  which  reflect  the  amounts  of  available  local  bomber 
defense,  are  assigned. 

Subroutine  TARDCFS  is  illustrated  in  figure  110.  , 


■ 


CHAPTER  7 
PROGRAM  INDEXER 


PURPOSE 


To  provide  for  economical  handling  of  data  and  to  facilitate  communica¬ 
tions  between  QUICK  programs,  it  is  necessary  to  assign  indices  to 
various  data  contained  in  the  data  base.  Program  INDEXER  is  designed  to 
perform  this  task.  In  addition,  INDEXER  processes  all  potential  targets 
and,  whore  appropriate,  forms  them  into  collocation  islands  and  complex 
targets.  Having  completed  the  required  processing,  INDEXER  prepares  the 
indexed  data  base  tape  INDEXDB  and  the  simulation  data  tape  SIMTAPE, 


INPUT 


The  input  to  program  INDEXER  consists  of  the  user-input  parameters  and 
a  data  base  file,  The  user-input  parameters  identify  the  print  options 
to  be  exercised,  and  provide  parameters  used  in  blast  damage  calculations 
The  required  user-input  parameters  and  a  description  of  the  output  prints 
provided  by  INDEXER  are  presented  in  chapter  5  of  the  User's  Manual, 
Volume  I,  and  in  chapter  2  of  the  User's  Manual,  Volume  II. 

The  data  base  is  input  to  program  INDEXER  via  magnetic  tape.  Thi"  source 
file  may  be  either  the  QUIKDB  tape  created  by  program  QU1KUASH  or  the 
QKMODDB  tape  prepared  by  program  BASEMOD.  This  is  not  to  Imply  that 
cither  source  file  is  always  acceptable,  if  the  data  base  tape  QUIKDB 
was  processed  by  program  BASEMOD  to  adept  it  to  the  game  scenario,  the 
BASEMOI)  output  tape  QKMODPH  is  input  to  INDEXER. 


OUTPUT 


Program  INDEXP.R  prepares  two  output  files:  an  indexed  data  base  tape 
INDEXDB,  and  a  simulation  data  tape  SIMI'APE.  The  INDEXDB  tape  is  used  as 
input  to  program  BASEMOI'  (if  used  in  the  post  -  INDEXER  mode)  or  as  input 
to  the  Plan  Generation  and  Data  Output  subsystems.  The  INDEXDB  tape  is 


[) rep  a red  using  1  lie  same  logical  record  format  as  the  input  data  base 
tape  (QIJIKDB  or  QKMOI >1  >H )  except  that  an  index  breakpoint  table  is  added 
to  the  file*.  Table  8  shows  the  logical  record  format  of  this  file, 
flic  SIMI'AI’I;  includes  selected  weapon  and  target  data  and  is  prepared  for 
use  in  program  .SIMULATE.  The  SIMTAPE  format  is  shown  in  table  0.  (The 
S I Ml'APli  is  produced  by  the  QUICK  system  filehandler.  The  physical  format 
of  the  'tape  is  described  in  Chapter  2,  QUICK  System  filehandler.) 


CONCEPT  Of  OPERATION 


General 

The  data  base  which  is  input  to  INDEXER  contains  those  items  which  are  to 
be  considered  in  a  specific  game  scenario.  The  information  included  in 
the  data  base  is  categorized  by  CLASS;  c.g.,  bomber,  and  by  TYPE  within 
class;  e.g,,  B-52.  fifteen  classes  arc  used  to  describe  the  targetablc- 
type  installations  included  in  the  data  base  (see  Data  Base  Organization, 
chapter  2,  Analytical  Manual,  Volume  1).  To  facilitate  subsequent  pro¬ 
cessing,  program  INDEXER  assigns  various  indices  to  these  data  items. 

IVh.cn  the  data  base  is  prepared,  each  of  the  target  classes  is  assigned  a 
value,  from  1  to  15,  for  the  attribute  1  CLASS**.  During  INDEXER  processing, 
all  target  types  which  belong  to  these  indexed  el. is  es  are  assigned  distinct 
values  of  the  attribute  I  TYPE,  and  all  types  w i 1 1 1 1  ■  ■  each  class  are  assigned 
distinct  values  of  the  attribute  JTYPE,  maintaining  the  order  established 
by  the  1TYPE  assignment.  In  addition,  each  of  the -e  data  items  is  .assigned 
a  unique  value  of  the  attribute  INDEXNO  (index  number).  The  order  of 
indexing  is  as  follows:  first,  all  items  of  the  ^ame  class  are  numbered 
consecutively.  IV i thin  a  single  class,  items  are  grouped  according  to  the 
attribute  SIDE  (value  RI-.P  or  BI.UE)  .  Items  are  further  grouped  according 
to  type  (.attribute  TYI’fl.  Within  a  type,  items  an-  assigned  index  numbers 
according  to  the  order  in  which  they  appear  in  the  data  base. 

After  these  indices  have  been  assigned,  collocation  islands  and  complex 
targets  are  made  up  from  the  collection  of  all  potential  targets  (items 
for  which  IND1.XNO  is  defined).  Collocation  islands  are  defined  by  the 


The  data  base  terminator  block  is  followed  by  a  padding  record  and  tin 
ciul-of- fi  le  mark  placed  on  the  tape  by  subrout  ine  II  RMI'AI’  (see  Chapter 
QUICK  System  l:  i  1  eh. and !  er )  .  The  single  breakpoint  table  record  as  dis¬ 
played  in  table  8  follows  the  terminating  t  n.l  of  file  written  by 
TERM  CAP . 

See  appendix  B  for  attribute  definitions. 


Table  8.  Indexed  Data  Base  File  (Logical  Record  Format) 
(Sheet  1  of  2) 


BLOCK  TYPE 

ARRAY 

LENGTH 

DESCRIPTION 

Directory 

IDEF 

1 

Number  of  attributes 

LASTLIST 

1 

Number  of  entries  in  value  list 

ATTNAME 

IDEF 

Attribute  names 

I  FORMAT 

IDEF 

Hollerith  format  codes 

ICODE 

IDEF 

Error  checking  code 

DEFAULT 

IDEF 

Attribute  default  value 

N1 

IDEF 

Minimum  allowable  attribute  value 

N2 

IDEF 

Maximum  allowable  attribute  value 

LISTCMEK 

IDEF 

Logical  array  to  specify  list 
checking 

LG  LOB 

IDEF 

Logical  array  to  specify  global 
definitions 

LISTVALS 

LASTLIST 

List  of  values  to  be.  checked 

Item 

NI 

1 

Number  of  attributes  defined 
locally  for  this  item 

IN ITEM 

2*NI 

Array  containing  attribute  index 
(from  directory)  in  odd  elements 
and  attribute  value  in  even 
elements 

Define 

Nl 

1 

-  -1  as  DF.FTNE  block  indicator 

L 

1 

Attribute  index  from  directory 

VALUE 

1 

Attribute  value 

Undefine 

NI 

1 

=  -2  as  UNOEFINE  block  Indicator 

L 

1 

Attribute  index  from  directory 

VALUE 

1 

New  attribute  value 

Terminator 

Nl 

1 

=  IiNDDATA  as  terminator  block 
i ndicator 

BLOCK  TYPE 

ARRAY 

LENGTH 

Breakpoint 

Tables 

CUMNO(I) 

15 

BTYPES(I) 

15 

I NEC LAS (I) 

15 

INDBEG(J) 

250 

TYPENAME(J) 

250 

Table  8.  (cont.) 

(Sheet  2  of  2) 


DKSCRIPTION 


Total  number  of  types  within  each 
class  (I  =  1  to  15) 

Number  of  BLUE  types  in  class  I 

Beginning  index  number  INDEXNO 
for  class  I 

Beginning  index  number  INDEXNO 
for  type  J 

Type  name  for  each  type  J 


Table  9. 

STMTAPH  Format 
(Sheet  1  of  4) 

VARIABLE 

NAMI! 

MAXIMUM  LHNGT1 1/ 
ACTUAL  LENGTH 

DESCRIPTION 

NTYPP. 

1 

Number  of  target  types  in  classes  1 
through  15 

INDBfiG 

250/NTYPE 

Smallest  INDEXNO  assigned  to  each 
target  type 

TYPENAME 

250/NTYPE 

Contains  the  name  of  each  target  type 
in  the  order  referred  to  by  lNDBEG 

CUMNO 

15 

CUMNO (I)  is  the  total  number  of  target 
types  in  each  QUICK  class,  1  through  I 

BTYPliS 

15 

BTYPliS (I)  is  the  number  of  BLUE  target 
types  in  class  I 

INDCLAS 

15 

Smallest  INDEXNO  assigned  within  each 
class 

NAMCLAS 

15 

Hollerith  name  of  target  class 

NVIJIjN 

1 

Number  of  distinct  values  of  vulner¬ 
ability  which  occur  in  the  data  base 

CVULN 

63/NVIJLN 

List  of  all  distinct  values  of  VllLN; 
indexed  by  I VllLN 

NCOI, 

1 

Number  of  collocated  targets 

COLAR 

4000/NCOI, 

Packed  data  related  to  collocated 
ta rgets 

NTDEF 

1 

Number  of  targets  with  terminal  bal¬ 
listic  missile  defenses  (BMO) 

NT  I  NT  X 

500/NTDHF 

Number  of  terminal  BMI)  interceptors; 
indexed  by  ITHRM 

NUMA1NT 

1 

Number  of  cones  with  area  BMP  inter¬ 
ceptors 

3f>4 


Table  9. 


(cont. ) 

(Sheet  2  of  d) 


VAR  I A 11 1,1: 
NAME 

MAXIMUM  LENGTH/ 
ACTUAL  LENGTH 

DESCRIPTION 

A I  NT 

60 

Number  of  area  interceptors  assigned 
each  antibal list.ic  missile  (ABM)  base 

NUMNLRR 

1 

Number  of  zones  with  long-range  BMI) 
radars 

NLRR 

20 

Number  of  long-range  BMD  radars  covering 
each  zone 

NUMIOVR 

1 

Number  of  entries  in  the  IOVERLAP 
array 

IOVERLAP 

20 

Packed  radar  data  (radar  index,  index 
of  area  defense  zone) 

MAXIND 

1 

The  maximum  (largest)  index  number 
(INDEXNO)  assigned 

STATUS 

12000/MAXIND 

Packed  target  data;  indexed  by  INDEXNO 

NMIS 

1 

Number  of  missile  types 

MTS 

11 -80/11 -NMIS 

Missile  type  data:  MIS  consists  of 

11  arrays,  each  indexed  by  JTYPli,  con¬ 
taining  PING,  PI. ART ,  PITHS,  PPP1-,  TVIJL, 
TRETARG,  1REP,  CEP,  PKM1S,  DELTA,  and 
EUNCT I ON ,  rcspcc t i ve  1  y 

NBOM 

1 

Number  of  bomber  types 

BOM 

7* 80/7* NBOM 

Bomber  type  data:  BOM  consists  of 
seven  arrays,  each  indexed  by  JTYPli, 
containing  P LAB T ,  TMDEL,  ABRATE,  PRABi , 
CEP,  DELTA,  and  FUNCTION,  respectively 

NTANK 

1 

Number  of  tanker  types 

TANK 

S* 40/5* NTANK 

Tanker  typo  data:  TANK  consists  of 
five  arrays,  each  indexed  by  .ITYPE, 
containing  P L ART  ,  TMDEL,  ABRATE,  DELTA, 
and  FUNCTION,  respectively 

3  OS 


Table  9. 

(cont . ) 
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VARIABLE 

namp: 

MAXIMUM  LENGTH/ 
ACTUAL  LENGTH 

DESCRIPTION 

NASMT 

1 

Number  of  ASM  types 

Aswr 

2 *20/2 -NASMT 

ASM  type  data:  two  arrays,  each 
indexed  by  ASMTYPIi,  containing  PLANT 
and  CEP,  respectively 

NWI  ID 

1 

Number  of  warhead  types  defined  in 
the  data  base 

WHD 

3*50/3*NWIlU 

Warhead  type  data:  three  arrays, 
each  indexed  by  WI1DTYPE,  containing 
PDUD,  YIELD,  and  CEP,  respectively 

NZONES 

1 

Number  of  air  defense  (bomber)  zones 

ZONES 

3*63/3 -NZONES 

Three  arrays,  each  indexed  by  ZONE: 

the  first  contains  AREA;  tlic  second 
and  third  contain  the  accumulated 


effectiveness  (EPliCTNES)  for  classes 
Defensive  Control  (DEPCONTR)  and 
Interceptor  (INTCPTOR),  respectively 

NDEP  1  Number  of  types  of  defensive  command 

and  control  defined  in  the  data  base 

D lit'’ POT  20/NDHF  HFECTNES  of  each  defensive  command 

and  control  type,  indexed  by  JTYPli 

NINT  1  Number  of  interceptor  aircraft  types 

1NTPOT  20/NINT  PFliCTNliS  oT  each  interceptor  type, 

indexed  by  JTYPli 

NliLUPI.D  1  Number  of  111, UK  payloads 

BLUE  payload  type  data:  five  arrays 
each  indexed  by  PAYLOAD,  containing 
N0110MB1,  IflIDTYPi: ,  NWI IDS ,  NDPCOYS,  an 
NAREADEC ,  respect  i  velv 


IPAYLD 


5  ’50/5  •NI1LUPLD 


Table  9.  (cont.) 
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VARIABLE 

NAME 

MAXIMUM  LENGTH/ 
ACTUAL  LENGTH 

DESCRIPTION 

NREDPLD 

1 

Number  of  RED  payloads 

IPAYLD 

5 *40/5 ‘NREDPLD 

RED  payload  typo  data:  same  form  as 
described  above  for  side  BLUE 

NWHDS 

1 

Number  of  words  in  DBLDATA  tables 

PSASW 

100/NWDS 

Destruction  before  launch  probability 
assigned  a  weapon  for  a  specified 
time  period 

TSASW 

100/NWDS 

Time  at  which  a  time  period  ends  for 
DBL  data  table;  there  may  be  up  to 

10  time  periods  for  each  table 

following  criteria:  if  the  distance  between  two  targets  is  less  than 
the  sum  of  the  lethal  radii  of  (for  convenience)  a  one-megaton  weapon  for 
the  hardnesses  of  the  two  targets,  then  they  belong  to  the  same  colloca¬ 
tion  island;  a  collocation  island  consists  of  all  targets  which  are 
linked  by  this  distance  criterion;  and  a  single  target  does  not  form  a 
collocation  island.  Thus,  there  is  no  theoretical  upper  limit  to  the 
size  of  an  island;  but,  in  practice,  islands  are  usually  rather  small 
clusters.  Two  targets  arc  said  to  be  collocated  if  they  belong  to  the 
same  collocation  island;  a  collocated  target  is  one  which  belongs  to  some 
collocation  i'  land.  The  definition  of  a  complex  target,  is  identical  to 
the  definition  of  a  collocation  island  except  that  the  distance  criterion 
is  one-half  the  distance  used  for  collocation.  Thus,  every  complex 
target  is  a  subset  of  some  collocation  island.  Collocation  islands  are 
used  in  the  Simulator  in  determining  the  status  of  targets  following 
warhead  bursts;1  cotriplex  targets  are  used  in  the  Plan  Generator, 

To  perform  the  required  processing  and  prepare  the  output  files,  INDEXER 
makes  three  passes  through  the  data  base.  In  the  first,  a  temporary  index 
JTYPE  is  assigned  to  selected  items,  and  breakpoint  tables  reflecting 
the  assignment  of  index  numbers  (1NPRXN0)  by  target  type  and  class  are 
formed.  In  addition,  the  various  vulnerabilities?  i.e.,  values  o'f  the 
attribute  VULN,  assigned  to  data  base  items  are  retrieved.  In  pass  two, 
an  index  number  (INDtiXNO)  is  assigned  to  each  potential  target.  Then , 
subroutine  COLOCATE  is  called  to  form  collocation  islands  and  complex 
targets.  In  pass  three,  the  indexed  data  base  tape  INDEXED  is  prepared, 
and  the  bulk  of  the  data  base  input  for  the  Simulator  is  compiled  and 
written  on  the  output  tape  SINfTAPIi. 

With  regard  to  processing  the  data  base,  it  should  be  noted  that  data 
items  in  classes  WARHEAD,  ASM,  PAYLOAD,  and  Dill. DAT  A  must  precede  all  other 
items  on  the  data  base  tape.  In  addition,  it  is  assumed  that  the  indi¬ 
vidual  launch  sites  assigned  to  each  missile  squadron  arc  grouped  together 
i.e.,  entered  sequentially,  in  the  input  data  base,  and  that  the  value  ot 
the  attribute  ISI'IT.  (site  number)  is  set  to  1  for  the  first  site  appearing 
on  the  tape  in  each  squadron.  The  use  of  this  technique  facilitates 
processing  and  eases  the  task  of  forming  offensive  weapon  groups  for  use 
in  the  Plan  Generator.  When  input  in  this  manner,  the  missile  squadrons 
are  viewed  as  one  launch  base  during  plan  generation,  hut  the  individual 
launcher  locations  are  used  in  computing  kill  probabilities  during 
simulation. 


Pass  l  Processing  (Sheets  1  rp  (, t  Figure  11 1J_ 

Figure  111  reflects  the  logical  flow  within  program  INDEXER.  The  program 
begins  by  calling  subroutine  1NITINP  to  initialize  counters  and  arrays. 
Then,  the  user- input  parameters  are  read  by  calling  subroutine  HEADIN'. 


After  keys*  for  packing  data  in  the  TOLAR,  lOVliUI.AP,  anti  LOMI’LliX  array;; 
have  been  formed  and  the  f  i  lehand  lor  initialized,  pass  1  begins.  The 
data  base  di rettery  i  s  read  in  and  written  onto  a  temporary  data  base 
file  (LUN2)  established  on  ihe  el  i  sk  using  subroutines  HIAblMU  and  UR  II  I.Dl  K. 
Then  each  data  item  contained  on  the  inpn.it  data  base  is  rent!  and  processed. 
As  each  Item  is  read  in,  the  value  of  the  attribute  1  Cl. ASS  is  checked. 

Items  for  which  [CLASS  equals  zero;  L.c.,  t.hc  auxiliary  classes,  are 
copied  onto  the  scratch  data  base  file  created  on  the  disk,  and  the  next 
item  is  read.  The  items  for  which  1  CLASS  is  greater  than  zero  are 
chocked  to  determine  if  the  item  is  a  nonlead  element  of  a  missile 
squadron*,  i.e.,  an  element  of  a  missile  squadron  for  which  I S I  i'll  is  not 
set  to  1.  If  so,  the  site  number  (1S1TII)  is  incremented  by  one,  and  the 
Item  is  added  tc  the  data  base.  The  remaining  itenisj  i.e.,  missile  sites 
for  which  1 6  ITU  equals  1  and  all  items  in  classes  2  through  lb  ( I  CLASS  •* 
2,3, ,..15)  arc  processed  and  assigned  a  temporary  index  .JTYI’H. 

The  assigning  of  JTYPB  takes  place  .in  the  following  manner.  Items  are 
separated  according  to  side,  and  the  array  TYPHNAMii(J,  1CI.ASS)  is  searched 
for  a  type  name  match  (1<.J<40  for  side  Blue,  and  41s. Is, HO  Mr  side  Red). 

If  no  match  is  found,  the  first  blank  word  is  filled  with  the  new  type 
name.  The  attribute  JTYPli  then  is  assigned  the  corresponding  value  of 
the  index  J.  Up  to  40  types  can  he  stored  for  each  side  and  class.  If 
this  number  is  exceeded,  the  message  TYPI-NAML  TAM, II  TOO  SMALL  is  printed, 
and  the  run  halts. 

The  number  of  items  c.f  each  type  is  stored  in  the  correspond  mg  word  of 
the  array  TYPliTUl.f.J ,  I  (1 1.ASS  J  .  bach  time  the  type  is  encountered,  the  number 
is  incremented  by  .LAUD,  where  .  J  AIM)  equals  the  number  of  sites  per  missile 
squadron  or  1  for  all  other  items. 

After  each  item  has  been  processed  by  type,  the  array  CVU1.N  is  searched 
for  the  Vulnerability  attribute  VU1.N  defined  for  that  item.  If  no  match 
is  found,  the  first,  blank  word  is  fillc'd  with  the  value  of  Vl.I.N.  Should 
more  than  UK)  different  values  he  encountered  in  processing  the  data  base, 
an  error  message  is  printed  to  indicate  an  array  overflow,  the  item  is 
written  on  the  scratch  tape,  and  the  next  item  is  read  from  the  data 


*  Key  words  returned  by  the  utility  function  KliYMAKh.  which  contain 

instructions  for  packing  and  unpacking  of  data  according  to  a  specified 
format  . 


base.  Otherwise,  the  attribute  IVULN*  is  defined  in  the  data  base  to  be  , 
the  index  of  the  word  in  the  CVULN  array  which  matches  the  item  attribute 
VULN.  The  item  is  then  written  onto  the  scratch  file,  and  the  next  item 
is  read,  1  1 

After  all  items  on  the  input  data  base  tape  have  been  processed,  INDEXER 
prepares  the  breakpoint  tables.  These  tables  contain  the  beginning  index 
numbers  (INDEXNOs)  of  each  class  ahd  type  and  the  number  of  RED  and  BLUE  . 
types  in  each  class.  The  breakpoint  tables  are  used  by  subsequent 
programs  to  obtain  information  as  to  the  general,  content  of  the  data  base 
and  to  facilitate  cross-referencing  operations;  e.g.,  the  class,  type, 
and  side  of  an  item  can  be  determined  based  on  its  assigned  index  number 
(INDEXNO).  These  tables  are  formed  by  assigning  a  beginning  index  (INDBEG) 
to  each  type,  starting  with  the  first  BLUE  type  in  class  1  (sop  sheet  4), 
Each  new  index  is  found  by  incrementing  the  previous  index  by  the  number 
of  items  for  the  type  under  consideration  (stored  in  TVPHTBL1 .  An  index  L 
to  the  array  INDBEG  then  is  stored  in  TYPETBL,  replacing  the  number  of 
items  of  that  type.  The  number  of  BLUE  types  in  each  class  (BTYPES)  and 
the  total  number  of'  types  in  all  classes  processed  thus  far  (CUMNO)  also 
are  accumulated.  After  all  beginning  indices  have  been  found,  the  array 
TYPENAME  is  collapsed  so  that  types  are  listed:  consecutively  in  the  order 
established  by  the  INDBEG  assignment,  with  no  blank  words  remaining.  !  The 
beginning  index  for  each  class  (1NDCLAS)  then  is , calculated,  and  the 
breakpoint  tables  and  vulnerability  (CVULN)  array  arc  written' on  tlie 
simulation  data  tape  SIMTAPE  (see  sheet  6). 


Pass  2  Processing’ (Sheets  6  to  11,  Figure  111)  1 

,  ’  I 

Before  pass  2  begins,  a  critical  distancefor  collocation  (CRDIST)  is 
calculated  for  each  value  in  the  vulnerability,  array  CVULN.  This  distance, 
which  is  approximately  the  lethal  radius  of  a  one-megaton  weapon  corre¬ 
sponding  to  the  value  VULN,  is  stored  in  degrees  of  latitude  to  minimize 
computation  in  forming  collocation  islands.  The  type1 beginning  indices 
(INDBEG)  then  are  stored  in  a  current  index  array  (1NDCUR),  and  the  first 
item  is  read  from  the  data  base  file  written  during  pass  1  (see  statement 
200,  sheet  6).  If  the  item  is  not  a  potential  target  and  will  not  be 


*  The  upper  limit  of  100  vulnerabilities  was  established  to  aid  NMCSSC;  in 
processing  large  data  bases  containing  an  unknown  number  of  vulnerability 
codes.  Up  to  100  different  codes  will  be  reflected  in  the  print  of  the 
CVULN  array.  Actually,  the  system  is  limited  by  the  structure  of  the 
STATUS  array  to  an  upper  limit  jf  63  vulnerabilities.  If  more  than  63 
different  vulnerability  codes  arc  encountered,  the  message  SIMTAPE 
UNUSABLE — TOO  MANY  VULNERABILITIES  is  printed.  This  condition  does 
not  preclude  the  use  of  the  INDEXDB  tape  in  plan  generation  but  does 
prohibit  the  simulation  of  such  plans. 
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assigned  an  index  number  INDEXNO  (i.e.,  if  ICLASS=0),  it  is  copied  onto 
a  scratch  disk  file  (LUN3,  see  statement  215,  sheet  S)  and  the  next  item 
is  read.  Otherwise,  the  item  is  assigned  a  value  for  the  attribute 
INDEXNO  as  follows. 

The  type  index  (L)  to  the  array  INDCUR  is  retrieved  from  TYPETBL,  and  the 
corresponding  value  in  INDCUR  is  assigned  to  the  attribute  tNDEXNO  (sheet  7). 
Index  L  then  is  assigned  to  the  attribute  ITYF’Ei.  In  addition,  the  index 
JTYPE  is  reassigned  so  that  all  types  within  each  class  are  indexed 
consecutively.  The  value  in  INDCUR  then  is  incremented  by  NADD,  where 
NADU  equals  the  number  of  sites  per  squadron  for  missiles  and  1  otherwise. 

It  is  assumed  that  the  first  missile  site  in  each  squadron  is  processed 
first]  subsequent  sites  in  the  squadron  are  assigned  consecutive  values 
of  INDEXNO  by  incrementing  the  index  assigned  to  the  first  site  by  a 
modified  site  index  (ISITF-1). 

After  INDEXNO  has  been  assigned  in  the  data  base,  it  is  stored,  along 
with  the  latitude  (LAT),  longitude  (LONG),  and  critical  distance  (CRD1ST) 
for  use  in  forming  collocation  islands.  Due  to  the  restriction  of 
available  storage  in  the  computer  memory,  most  of  the  collocation  data 
must  be  kept  on  the  disk.  This  is  accomplished  by  splitting  the  earth 
into  10  longitudinal  sectors  and  writing  the  information  for  all  sectors 
but  the  first  on  the  scratch  disk  file  (see  sheet  8).  Information  for 
items  iii  the  first  sector  is  stored  in  the  arrays  1ND( INDEXNO) ,  X(LONG), 

Y (LAT) ,  and  Z(CRDIST)  for  immediate  use  in  subroutine  COLOCATE  (statement 
267,  sheet  8).  At  this  point,  the  item  is  written  on  the  scratch  tape  and 
the  pass  continues. 

Once  all  the  data  for  collocation  have  been  collected,  a  check  is  made  to 
insure  that  no  sector  contains  more  than  4,000*  items  (sheet  9).  If  this 
number  is  exceeded,  the  message  TOO  MANY  ITEMS  FOR  COLLOCATION,  together 
with  the  sector  concerned  and  the  number  of  targets  in  the  segment,  are 
printed,  and  the  number  of  targets  to  be  considered  is  limited  to  4,000. 

When  all  sectors  have  been  checked,  subroutine  COLOCATE,  is  called  to 
process  the  data  stored  in  the  arrays  INI),  X,  Y,  and  1  for  the  first  earth 
sector. 

When  control  is  returned  from  COLOCATE,  the  scratch  file  is  read  and  the 
arrays  IND,  X,  Y,  and  Z  arc  filled  with  the  data  for  the  next  sector.  The 
data  for  the  remaining  sectors  are  copied  onto  a  second  disk  scratch  file, 
and  subroutine  COLOCATE  is  called  to  process  the  data  for  the  next  sector. 
This  process  is  repeated,  with  the  i riput/output  roles  of  the  two  scratch 
files  LUNG  and  7  alternating,  until  all  earth  sectors  have  been  processed. 
(The  input  and  output  scratch  files  used  in  this  process  are  designated 
LIN  and  LOUT,  respectively.) 

*  Program  coding  reflects  the  variable  MTARSEC  (maximum  targets  per  sector) 
which  is  set  at  1,000. 

' '  1 


When  control  is  returned  from  subroutine  COLCCATP  after  processing  the 
last  sector,  the  scratch  file  LUN2  containing  the  COlAk  array  (written  by 
COLOCATii)  is  terminated.  A  check  is  then  made  to  ensure  that  no  more 
than  4,000  target  elements  were  found  to  ho  collocated.  If  the  number 
of  collocated  targets  exceeds  4,000,  counters  are  set  to  cause  the  message 
ARRAY  OVFRFI.OIV  COL  TGTS  (number  of  collocated  targets)  to  be  printed  in 
the  final  phase  of  processing. 


Pass  3  Processing  (Sheets  11  to  18,  Pi gure  ill) 

Before  the  pass  begins,  relevant  arrays  and  counters  are  initialized,  keys 
arc  formed  for  use  in  packing  data  into  the  array  STATUS,  and  the  maximum 
value  of  INDHXN0  is  retrieved  (sheet  11).  The  directory  of  the  data  base 
written  during  pass  2  then  is  read  from  I.UN3  and  copied  onto  the  final 
data  base  tape  1NDLXDB. 

As  each  item  is  read  from  the  data  base,  it  again  is  tested  for  class 
assignment.  Items  which  are  not  potential  targets  (i.e.,  ICLASS=0)  arc 
separated  into  appropriate  classes  (sheet  12).  Relevant  data  for  items 
in  classes  WAR1IFAD,  ASM,  ZONli,  and  DBLDATA  are  stored  in  the  corresponding 
array  (sec  table  10),  and  the  number  of  items  in  each  class  Is  accumulated. 
Items  in  class  PAYLOAD  arc  separated  by  side  and  assigned  a  new  payload 
index  (NBLUPLD  or  NRLDPLD),  beginning  with  "1"  on  each  side.  The  index 
is  stored  under  the  old  index  PAYLOAD  in  array  KNARKAY,  and  the  attribute 
PAYLOAD  is  changed  in  the  data  base  to  represent  the  new  index.  Relevant 
data  then  are  retrieved  and  stored  in  corresponding  arrays  (sec  table  10)  . 
The  item  is  written  onto  INDPXDB,  and  the  next  item  is  read.  As  each  of 
the  items  (data  base  records)  associated  with  these  auxiliary  classes  is 
processed,  a  check  is  made  to  ensure  that  the  maximum  limit,  for  the  class 
is  not  exceeded  (for  maximum  limits,  see  description  of  common  block  /MAX/ 
in  table  13).  If  the  upper  limit  is  exceeded,  flags  arc  set  to  cause  an 
array  overflow  error  message  to  be  printed,  The  item  is  then  written  onto 
the  INDIIXDB  tape  without  storing  the  associated  data  (sheet  1 2 J  . 

With  one  exception,  data  base  items  from  the  auxiliary  classes  PO INI, 
BOUNDARY,  CORRIDOR,  and  I. PCS  are  merely  written  onto  the  TNDhXDR  tape  and 
the  next  item  is  read.  The  exception  pertains  to  a  check  ol  class 
CORRIDOR  items  to  ensure  that  the  corridor  types  DUMMY  and  NAVA LA IK  are 
defined  in  the  data  base  (required  if  tactical  bombers  or  bombers  with 
the  attribute  PKNAV>0  are  to  be  considered  in  plan  generation).  If  these 
corridor  types  are  not  encountered  in  processing  the  data  base,  a 
message  is  printed  to  alert  the  user  to  a  possible  error.  As  appropriate, 
one  or  both  of  the  following  messages  is  printed:  DUMMY  CORRIDOR  FOR 
TACTICAL  AIR  NOT  DFFINFD;  and/or  NAVAL  AIR  CORRIDOR  NOT  PF.FINFb. 


Table  10. 


Warhead,  ASM,  Payload,  and  DBL  Data 


ARRAY 

POSITION 

ATTRIBUTE 

DESCRIPTION 

Will) 

WHDTYPE,  1 

PDIJD 

Probability  of  a  dud 

WHD 

WIIDTYPE,  2 

YIELD 

Yield  (megatons) 

WIID 

WIIDTYPli  ,3 

CEP 

COP  (nautical  miles) 

ASMT 

ASMl'YPE ,  1 

PLABT 

Probab: lity  of  launch  abort 

Asm 

ASMTYPE,2 

CEP 

CEP  (nautical  miles) 

ZONES 

ZONE, 1 

AREA 

Area  of  a  defense  zone 
(millions  of  nautical  miles2) 

MIRV 

PAYLOAD,  ISIDE 

NOBOMB  1 

Number  of  bombs  carried  by 
vehicle 

INWHDS 

PAYLOAD, ISIDE 

NWUDS 

Number  of  warheads  (missiles) 

IWIIDTYPH 

PAYLOAD, ISIDE 

WIIDTYPE 

Warhead  typo  index 

INDECOYS 

PAYLOAD, ISIDE 

N DECOYS 

Number  of  decoys  carried  by 
vehicle 

INARDEC 

PAYLOAD, IS  IDE 

NAREADEC 

Number  of  area  decoys 

TMASW 

TPASW 

Time  for  DBL  data  table 

DBLASW 

PS  ASK 

Dill,  probability  for  DBL  data 
tabic 

If  the  item  under  consideration  is  a  potential  target,  it  is  checked  for 
collocation  (logical  array  COLO).  Collocated  targets  are  so  indicated  by 
packing  a  "1"  under  TCOL  in  the  STATUS  array  (indexed  by  INDEXNO  (see 
table  11)),  The  logical  array  COMP  then  is  checked  to  see  if  the  collo¬ 
cated  target,  is  also  a  member  of  a  complex.  If  it  is,  function  1CPL  is 
called  to  unpack  the  index  I COMP  Lb  X  from  array  COMPLEX.  ICOMPLEX  then  is 
assigned  in  the  data  base. 

For  all  potential  targets,  the  values  of  the  attributes  TARDEFHI,  TARDEFLO, 
IVULN,  I ATTACK,  I AREA,  ADEFZON,  and  ADEFCMP  are  packed  into  the  STATUS 
array  (table  11). 

Dynamic  targets  (items  assigned  the  attribute-value  pair  TGTSTAT-  1  in  the 
data  base)  are  so  indicated  by  packing  a  "1"  under  the  al.' vc-deae 
indicator  TSTAT  and  status  flag  IKEEP  in  the  STATUS  array.  In  addition, 
for  all  items.' in  JCLASS  4  and  S  (currently  classes  defensive  control 
DEFCONTR,  and  interceptor  INTCPTOR) ,  the  value  of  the  attribute  ZONE  is 
packed  ipto  the  STATUS  array;  the  defense  potential  of  the  target  (attri¬ 
bute  EFECTNES)  is  accumulated  in  the  zone  array  (table  11);  and  the 
value  of  EFECTNES,  Which  must  be  the  same  for  all  items  of  a  given  type, 
is  stored  by  J.TYPE  in  the  array  CPACTYi  if  the  item  is  the  first  of  its 
type.  For  items  which  are  antibal listic  missile  (ABM)  bases  (ADEPCMP=1 
2,  or  3),  the  value  of  NAINT  is  stored  in  the  A1NT  array,  doubly  indexed 
by  ABM  defense  zone  (ADEFZON)  and  ABM  defense  component  (ADEFCMP) .  For 
items  which  are  radars  (ADEFCMPM) ,  NLRR  is  incremented  by  one  for  each 
of  the  area  defense  zones  AZ0N1,  AZON2,  and  AZ0N3  supported  by  the  radar. 

In  addition,  the  values  of  the  attributes  1NDEXN0,  AZ0N1,  AZON2 ,  and 
AZ0N3  are  packed  in  a  word  of  the  array  10VERLAP  (table  12)  indexed  by 
ADEFZON. 

Items  belonging  to  1CLASS  1,  2,  and  3  (currently  classes  MISSILE,  BOMBER, 
and  TANKER)  now  are  tested  for  payload.  ,  If  the  payload  index  (attribute 
PAYLOAD)  is  defined,  the  new  payload  index  (NBLUPLL  or  NREDPLD)  is 
retrieved  from  array  KNARRAY  and  assigned  to  the  attribute  PAYLOAD  in  the 
data  base.  Certain  data  which  do  not  change  within  a  given  type  arc 
stored  in  the  corresponding  MISSILE,  BOMBER,  or  TANKER  array  for  the  first 
item  of  each  type  (indicated  in  array  1CIIK) .  The  item  then  is  written 
onto  INDEXDB  and  t he  next  item  is  read. 

After  all  items  have  been  processed,  the  array  COI.AR,  which  was  written 
during  subroutine  COLOCATE,  is  read  into  memory  and  copied  onto  the 
Simulator  tape  SJMTAPE  (sheet  17).  Subroutine  TDEFSTT  now  is  called  to 
make  the  final  assignment  of  terminal  defense  indices  (NTDEF) .  When 
control  is  returned  to  INDEXER,  data  for  the  Simulator  are  written  on 
S1MTAPE  in  the  format  shown  in  table  9,  and  l lie  tape  is  terminated. 
Subroutine  SK1PF1LE  then  is  called,  so  that  the  index  breakpoint  tables 
may  be  written  at  the  end  of  the  1NDEXUB  tape.  Depending  upon  the  print 


Table  11. 


Structure  of  a  Word  in  the  Array  STATUS 


BITS 

VARIABLE 

VALUES 

DESCRIPTION 

0-1 

TSTAT 

0,1 

Value  equals  1  for  (alive)  dynamic  tar¬ 
gets,  equals  0  for  nondynamic  targets 

2 

IKEEP 

0,1 

Value  equals  1  for  dynamic  targets, 
equals  0  for  nondynamic  targets 

3-5 

TCOL 

0,1 

Collocation  indicator;  l=collocated 

6-8 

TARDDPLO 

0-7 

Level  of  local  bomber  defenses  at  low 
altitude 

9-11 

TARDEF1II 

0-7 

Level  of  local  bomber  defenses  at  high 
altitude 

12-14 

I ATTACK 

OJ 

Selection  index  for  preferential  BMD; 
value  equals  1  if  selection  is  user- 
directed 

15-20 

IVULN 

1-63 

Index  to  vulnerability  number  table 

21-23 

1AREA 

o.i 

Value  equals  1  if  item  assigned  to  an 
area  BMD  zone;  i.  e.,  item  attribute 
ADEPZON  ?  0,  and  otherwise  set  to  0 

24-32 

I  TERM 

0-500 

Terminal  BMD  defense  index 

33-38 

ADEFZON 

0-63 

Area  BMD  zone  number 

39-41 

ADEECMP 

0-4 

Area  BMD  component  code  (ABM  base  or 
radar) 

42-47 

ZONE 

1-63 

Bomber  area  defense  zone  number  (ICLASS 
4  and  5  only) 

Table  12. 

Structure 

of  a  Word  in  tiie  Array  1  OVERLAP 

BITS 

VARIABLE 

VALUES 

DESCRIPTION 

0-14 

1 T4R 

1-12000 

Index  number  INDEXN0  of  the  radar 

15-20 

AZ0N1 

0-20 

First  area  BMD  defense  zone  covered 
radar 

by 

21-26 

AZ0N2 

0-20 

Second  area  BMD  defense  zone  covered 
radar 

by 

27-32 

AZ0N3 

0-20 

Third  area  BMD  defense  zone  covered 
rada  r 

by 

controls,  the  data  on  SIMTAPE  and  in  the  STATUS  array  may  be  printed  at 
this  point.  Otherwise,  the  processing  of  INDEXER  is  complete. 


Common  Block  Definition 

Program  INDEXER  references  the  following  utility  routine  common  blocks, 
which  are  described  in  appendix  A  of  this  manual:  /DIRECTRY/,  /EDITERM/, 
/EDITAPE/,  /ERRORM/,  /IFTPRINT/ ,  /ITP/,  /MY I DENT/,  /NOPRINT/,  /PROCESS/, 
and  /TWORD/. 

Table  13  lists  the  common  blocks  which  are  local  to  this  program  and 
identifies  the  arrays  contained  in  them. 
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BLOCK 

1 


Tabic  15.  Program  INDEXER  Common  Blocks 
(Sheet  1  of  9) 

VARIABLE 

OR  ARRAY  DESCRIPTION 

NISL  Number  of  collocation  islands 

NN  Index  to  COLAR  array 

NCOL  Numbei  of  collocated  targets 

NITEM  Number  of  items  in  segment  being  processed 

X  Array  containing  longitude 

Y  Array  containing  latitude 

Z  Array  containing  critical  distance 

1ND  Array  containing  index  number  1NDEXNO 

STATUS*  Array  containing  packed  dav.  for  targets 


2  COL  Array  indicating  targets  belonging  to  a 

collocation  island 

CL  Array  indicating  targets  belonging  to  current 

collocation  island 

CLT  Array  indicating  targets  in  current  island 

which  have  not  been  checked  for  further 
col  location 

CP  Arriy  indicating  targets  belonging  to  a 

compl cx 


3  t C!JR  Complex  index 

T STORE  Index  to  array  COMPLEX 

hqu  i\a  lone  til  to  X  to  save  storage  space. 
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BLOCK 


Tahle  13.  (cont.) 

(Sheet  2  of  9) 

VARIABLE 

OR  ARRAY  DESCRIPTION 

3  (cont.) 

COLAR  Array  containing  packed  data  for  collocated 

targets 

COMPLEX  Array  containing  packed  data  for  complex 

targets 

4  NULL  Beginning  INDEXNO  reference  point  in  CUMNO 

CUMNO(I)  Total  number  of  type 

BTYrES(I)  Number  of  BLUE  types  in  class  I 

INDCLAS(I)  Beginning  index  number  for  class  I 

INDBEC (J]  Beginning  index  number  for  type  J 

TYPENAM  Array  containing  type  names 

TYPETBL  Array  containing  number  of  items  of  each  type 

itNDCUR(J)  Current  index  number  for  type  J 

MIS(FMIS)  Array  containing  missile  type  data 

BOM  Array  containing  bomber  type  data 

TANK  Array  containing  tanker  type  data 

ASMT  Array  containing  ASM  data 

W11D  Array  containing  warhead  data 

ZONES  Array  containing  rone  data 

CAPACTY  Array  containing  effectiveness  (EEECTNES) 

Array  used  to  process  information  pertaining 
to  all  items  of  the  same  type 
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BLOCK 
4  (cont,) 


5 


Tabic  13.  (cont.) 

(Sheet  3  of  9) 

VARIABLE 

OR  ARRAY  DESCRIPTION 


MIRV 

IIVHDTYP 

1NWI1DS 

INDECYS 

INARDEC 

NAMCLAS 


Array  containing  number  of  multiple  inde¬ 
pendent  re-entry  vehicles 

Array  containing  warhead  type  index 


Array  containing  number  of  warheads  carried 
by  vehicle 

Array  containing  number  of  bomber  decoys 
Array  containing  number  of  area  decoys 


Array  containing  Hollerith  name  of  target 
classes 


NTDEF  Number  of  terminal  ABM  defenses 

1TERM  Array  containing  index  number  of  terminally 

defended  targets 

NT1NTX  Array  containing  number  of  terminal  inter¬ 

ceptors 


COLO 

Logi cal 

array 

which 

flags 

collocated  targets 

COMP 

Logical 

array 

which 

flags 

complex  targets 

[.TERM* 

Logical 

array 

wli  i  ch 

Flags 

terminally  defended 

targets 

*  Equivalence!  to  COMP  to  save  storage  space. 
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BLOCK 

9 


10 


AREADAT 


COMP 


KEY 


Table  13.  (cont.) 

(Sheet  4  of  0) 


VARIABLE 
OR  ARRAY 

I  Cl  IK  FLO 


ICHKNUM 

NCIIKFLG 

NCIIKNUM 


DESCRIPTION 

Array  containing  names  of  classes  which  have 
exceeded  maximum  number  of  target  types  per 
class 

Array  containing  number  of  target  types 
greater  than  maximum  allowed  per  class 

Array  containing  Hollerith  identifier  for 
variables  and  arrays  which  exceed  upper  limits 

Array  containing  number  of  items  associated 
with  each  NCIIKFLG  entry 


KNARRAY  Array  containing  payload  indices  for  each 

side 


AINT 

Array  containing 

NLRR 

Array  containing 

covering  a  zone 

1  OVERLAP 

Array  containing 

number  of  area  interceptors 
number  of  long-range  radars 

packed  data  for  radars 


LCOMP 


Array  containing  index  numbers  of  targets  in 
current  collocation  island 


KEY 


Array  containing  keys  for  packing  data  into 
CO  LA  It 
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Tabic  13.  (cont.] 

(Sheet  5  of  9) 

BLOCK 

VARIABLE 

OR  ARRAY 

DESCRIPTION 

KEYC 

KEYCl 

Key  for  packing  index  number  into  COMPLEX 

KEYC2 

Key  for  packing  complex  index  into  COMPLEX 

MASK1 

Mask  corresponding  to  KEYCl 

MASK2 

Mask  corresponding  to  KEYC2 

KEYS 

TSTAT 

(KEYS(l)) 

Key  for  packing  status  flag 

TCOL 

(KEYS (21) 

Key  for  packing  collocation  flag 

TARDLO 
(KEYS (3)) 

Key  for  packing  TARDEELO 

TARDHI 
(KEYS  (4]) 

Key  for  packing  TARDEEHI 

KATTACK 
(KEYS (5)) 

Key  for  packing  IATTACK 

TVULN 
(KEYS (6)) 

Key  for  packing  IVULN 

KARDEF 
(KEYS  (7) ) 

Key  for  packing  I AREA 

KTERM 
(KEYS (8)) 

Key  for  packing  ITERM 

2  ON 

(KEYS (9)) 

Key  for  packing  ZONE 

KDEFZON 
(KEYS (10)) 

Key  for  packing  ADEPZON 

KDEI-CMP 

(KEYS(ll)) 

Key  for  packing  ADEI'CMP 

7,81 


Table  13.  (cont.) 

(Sheet  6  of  9) 

variable 
block  or  array 

DESCRIPTION 

wax 

Array  containing  maximum  limits 

MALERT 

Alert  conditions  (2) 

MASWTYP 

ASM  types  (20) 

MBNDRY 

Boundary  legs  (200) 

MCCREGN 

Command/ control  (20) 

MCLASS 

Weapon  classes  (2) 

MCNTRYS 

Country  codes  (250) 

MCORR 

Penetration  corridors  (30) 

MCORTYP 

Corridor  types  (5) 

MDPL'N 

Depenetration  corridor  route  points  (50) 

MDEPNLG 

Depenetration  legs  (50) 

MGROUP 

Weapon  groups  (200) 

MPAYLOD 

Payload  types  per  side  (40) 

MRECOVR 

Recovery  bases  (200) 

MRECVLG 

Recovery  legs  (60) 

MREF 

Directed  refuel  points  (20) 

MRTLEG 

Route  legs  (200) 

MRTPT 

Route  points  (200) 

MS  PE  RKP 

Missile  site-;  per  multiple  target  (5) 

A**- 


Table  13.  (cont.) 

(Sheet  7  of  9) 


BLOCK 


MAX  (cont.) 


VARIABLE 

OR  ARRAY  DESCRIPTION 


MTANKBS  Tanker  bases  (00) 

MTARCLS  Target  classes  (IS) 

MTARCOL  Collocated  targets  (-1,000) 

MTAUCPX  Target  complexes  (-1,000) 

Ml’ARliRS  Targets  per  collocation  island  (100) 

MI'ARCHT  Targets  (program  ALOC  limit)  (5,000) 

MTARIN1)  Target  index  numbers  (12,000) 

MfARSHC  Targets  per  earth  sector  (4,000) 

MTARTE1  Targets  with  terminal  BMP  interceptors  (500) 

M1‘ ARTY P  Total  target  types  (250) 

MTARVAL  Target  complexes  with  value  greater  than  zero 

(2,500  per  side) 


MTELMCM  Target  elements  per  complex  (40) 

MTOTBAS  Weapon  bases  per  group  (150) 

MI'YPL  Weapon  typos  (missiles  phis  bombers  per  side)  (.40) 

MVULN  Vulnerabilities  (100) 

MWLAPGP  We;i]ions  per  group-  (1,000) 

MNIIDTPH  Warhead  types  (Si1) 

MZONI-PT  Zone  points  (200) 

MZONIiS  Zones  (t>3) 

MTARPCL  Target  types/class  (missile  and  bomber  -10;  all 

ot her  classes  2d ) 


I 
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VAklABLIi 
OR  ARRAY 

TRANS  (cent.) 

NBLUPLI) 
MAX  INI) 


fable  IS.  (cont.) 
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description 

Number  of  BLUR  payloads  in  base 

Number  of  index  numbers  stored  in  STATUS 
array 


NRFiDPl.U 

UMAX 


Number  of  RED  payloads  in  the  data  base 

I o t <1 1  number  of  types  assigned  index  numbers 
in  data  base 


WRIT 


IVR(IWK) 

NR 

Xl.ONO 


Array  used  for  eol location  data 

Array  containing  number  of  items  in  an 
earth  sector 

Designates  sector  boundaries 
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Fig.  111.  (cont.) 
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Fig.  111.  (cont . ) 
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SUBROUTINE  AROVRFL 


PURPOSE: 


ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  examine  the  error  message  flags  which  are 
written  during  the  running  of  program  INDEXER, 
and  to  print  the  errors  encountered. 

AROVRFL 

None 

9 

None 

INDEXER 


Method 


Subroutine  AROVRFL  (figure  112)  checks  the  arrays  JCHKFLC  and  NCHKFLG  for 
the  presence  of  error  flags  set  by  program  INDEXER  and,  if  present,  writes 
an  appropriate  error  message  which  indicates  a  data  overflow.  If  a  target 
class  includes  too  many  TYPES,  the  error  message  will  indicate  the  number 
of  excess  TYPES,  the  SIDE  (RED  or  BLUE),  and  1CLASS  index  involved,  Over¬ 
flows  of  other  selected  data  arrays  will  be  noted  by  a  message  identifying 
the  array  and  the  total  number  of  items  read.  The  latter  message  will  be 
printed  if  the  upper  limit  for  any  of  the  following  is  exceeded: 


CONSTRAINT  LIMIT  (TOTAL) 

Target  Types  (TYPES)  250 

Target  Complexes  (CPX  TGT)  4,000 

Collocated  Targets  (COL  TGTS)  4,000 

Warhead  Types  (WARHEADS)  50 

Payload  Types,  BLUE  (BLU  PLUS)  40 

Payload  Types,  RED  (RED  PLUS)  40 

ASM  iypes  (ASMS)  20 

Zones  (ZONES)  65 

Index  Numbers  (1NDEXNO)  12,000 
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SUBROUTINE  CO  LOCATE 


PURPOSE : 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 

SUBROUTINES  CALLED : 
CALLED  BY: 


To  form  collocation  islands  and  complex  targets 
for  up  to  4,000  targets  in  a  given  earth  segment, 

COLOCATE,  COLOCAT  (duplicate  entry) 

None 

1,  2,  3,  4,  1,  KEYC,  KEY,  COMP,  KNARRAY,  PRNT, 
TRANS 

ORDER,  REORDER,  I  PUT,  I  GET,  IDXE,  FILEHNR 
INDEXER 


Method 

The  initial  action  of  COLOCATE,  as  shown  in  figure  113,  is  to  call  sub¬ 
routine  ORDER  to  arrange  the  latitude  array  Y  by  increasing  magnitude. 
Subroutine  REORDER  then  is  called  to  place  the  arrays  1ND,  X,  and  Z  in 
the  corresponding  order  (sheet  1). 

The  search  for  collocation  begins  by  comparing  differences  in  latitude 
for  consecutive  targets  in  the  ordered  list,  beginning  with  the  first 
uncollocated  target  (sheets  2,  3).  When  a  difference  which  is  less  than 
, 35®  is  encountered,  the  arrays  COL,  CP,  and  CLT  (see  table  14)  are 
tested  to  find  the  status  of  the  second  target  (J).  If  target  J  has  been 
collocated  previously  and  is  either  a  member  of  a  complex  or  a  nonmember 
of  the  current  island,  the  test  for  latitude  difference  between  the  first 
target  (I)  and  the  next  target  on  the  list  continues.  Otherwise,  the 
actual  distance  between  targets  I  and  J  is  calculated  and  compared  with 
the  sum  of  the  critical  distances  for  the  two  targets.  Where  two  targets 
are  found  to  be  collocated,  COL  and  CL  are  set  to  1  for  both,  and  CLl  is 
set  to  1  for  the  secon  t.  If  the  targets  are  sufficiently  close  to  be 
members  of  a  complex,  CP  is  set  to  1  for  both,  and  the  index  J  is  entered 
in  the  array  I.COMP . 

Target  I  continues  to  bo  tested  against  subsequent  targets  on  the  list 
until  a  difference  in  latitude  greater  than  .35°  is  encountered,  lhe 
investigation  of  that  target  then  is  considered  finished,  and  CLT(l)  is 
set  to  zero  (sheet  4).  If  there  is  an  unfinished  complex,  the  next 
target  in  the  list  LCOMP  is  compared  in  the  same  way  to  find  additional 
members  of  the  complex.  The  process  is  repeated  until  all  targets  in 
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the  list  LCOMP  have  been  investigated,  and  the  complex  is  complete.  Each 
member  is  flagged  in  tho  array  COMP  as  belonging  to  a  complex  (sheet  5). 

The  complex  then  is  assigned  the  next  value  of  ICOMPLEX  (beginning  with  1) 
which,  together  with  the  index  number  of  each  member,  is  packed  into  the 
array  COMPLEX. 

The  search  for  members  of  the  current  island  continues  until  all  targets 
have  been  checked  for  further  collocation  and  complexing  (sheet  6).  The 
island  then  is  considered  complete.  The  directed  horizontal  and  vertical 
distances  to  each  target  from  the  one  preceding  it  in  the  list  (in  50ths 
of  nautical  miles)  are  calculated  and  packed,  together  with  index  number, 
into  the  array  COLAR  (sheets  7  and  8).  For  the  first  target  in  the  island, 
the  distances  are  calculated  to  it  from  the  last  target.  In  addition,  the 
number  of  targets  in  the  island  (NTA)  is  included  in  the  data  packed  for  the 
last  target.  For  all  other  targets,  NTA  is  set  to  zero.  The  array  COLAR 
is  written  on  a  scratch  file,  LUN2;  the  number  of  collocated  targets  and 
collocation  islands  processed  thus  far  is  accumulated;  and  the  investiga¬ 
tion  is  restarted  with  the  next  uncollocated  target  (COL=0)  on  the  list 
(sheet  2).  When  the  list  is  exhausted,  control  is  returned  to  INDEXER. 


Table  14,  Description  of  COLOCATE  Arrays 


ARRAY 

LENGTH 

DESCRIPTION 

COLO 

12 

,000 

(logical) 

Is  set  to  1  if  corresponding  target 
belongs  to  a  collocation  island 

COMP 

12 

,000 

(logical) 

Is  set  to  1  if  corresponding  target 
belongs  to  a  complex 

COLAR 

100 

Is  packed  with  data  required  for  collo¬ 
cation  islands 

COMPLEX 

4 

,000 

Is  packed  with  data  required  for  complex 
targets 

COL(J) 

4 

,000 

(logical ) 

Is  set  to  1  if  Jth  item  in  array  IND 
belongs  to  some  collocation  island 

CL(J) 

4 

,ooo 

(logical ) 

Is  set  to  1  if  Jth  item  in  array  IND 
belongs  to  current  island 

CLT(J) 

4 

,000 

(logical ) 

Is  set  to  1  if  Jth  item  in  array  INI) 
belongs  to  current  island  but  has  not 
been  checked  for  further  collocation 

CP(J) 

4 

,000 

(logical) 

Is  set  to  1  if  Jth  item  in  array  IND 
belongs  to  a  complex 

LCOMP 

40 

Contains  indices  J  of  items  in  array  IND 

which  belong  to  the  complex  currently 
being  investigated 
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Hg.  113.  Subroutine  COI.OCATH 
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Fig.  113.  (cent . ) 
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Fig.  113.  (cont.) 
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SUBROUTINE  FINDIT 


PURPOSE : 

To  look 
ir.  che 

ENTRY  POINTS: 

FINDIT 

FORMAL  PARAMETERS: 

None 

COMMON  BLOCKS:.' 

3 

SUBROUTINES  CALLED: 

ABORT 

CALLED  BY: 

TDEFSTT 

Method 

FINDIT  receives  the  length  of  the  array  COLAR  in  ISTORE,  and  the  value 
of  INDEXNO  to  be  matched  in  1CUR  (both  in  common  /$/).  It  executes  a 
masked  equality  search  through  COLAR  and  normally  returns,  in  I  CUR,  the 
index  of  the  word  in  COLAR  which  contains  the  matching  INDEXNO.  If  no 
match  is  found,  ABORT  is  called  to  terminate  the  run.  Subroutine  FINDIT 
is  illustrated  in  figure  114, 


FUNCTION  ICPL 


PURPOSE: 

To  unpack  the  index  ICOMPLEX  from  array  COMPLEX. 

ENTRY  POINTS: 

ICPL 

FORMAL  PARAMETERS: 

INDEX  - 

N 

The  index  number  to  be 
COMPLEX  array 

The  number  of  words  in 
which  have  been  filled 

located  in  the 

the  COMPLEX  array 

COMMON  BLOCKS: 

5,  KEYC 

SUBROUTINES  CALLED: 

IGET 

CALLED  BY: 

INDEXER 

Method 

ICPL  begins  by  masking  all  information  except  the  five-digit  index 
contained  in  the  parameter  INDEX  and  in  the  array  COMPLEX.  The  array 
then  is  searched  until  two  matching  index  numbers  are  encountered.  If 
no  match  is  found,  ICPL  is  assigned  the  value  zero.  Otherwise,  function 
IGET  is  called  to  unpack  ICOMPLEX  from  the  word  in  COMPLEX  at  which  the 
search  is  stopped.  Control  then  returns  to  INDEXER  with  this  value  of 
ICOMPLEX  assigned  to  ICPL.  Function  ICPL  is  illustrated  in  figure  115. 
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Fig.  115.  Function  ICPL 
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FUNCTION  IDXF 


PURPOSE; 

ENTRY  POINTS: 


To  compute  the  latitudinal  distance  between  two 
consecutive  targets  in  a  collocation  island. 

IDXF 


FORMAL  PARAMETERS:  J  -  Pointer  to  longitude  of  first  target 

K  -  Pointer  to  longitude  of  second  target 


COMMON  BLOCKS:  1 


SUBROUTINES  CALLED:  None 


CALLED  BY: 


COLOCATE 


Method 


The  parameters  J  and  K  are  indices  to  the  array  X  in  common  / 1 /  which 
contains  degrees  of  longitude.  After  the  corresponding  values  have  been 
retrieved  from  X,  the  difference  between  them  is  calculated  and  changed, 
if  necessary,  to  represent  the  shortest  distance  around  the  earth  and 
then  converted  to  SOths  of  nautical  miles,  The  value  is  returned  to 
COLOCATE  as  the  value  of  IDXF.  Function  IDXF  is  illustrated  in  figure  110. 
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Fig.  J 16,  Function  ID.XF 
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SUBROUTINE  INITIND 


PURPOSE: 

ENTRY  POINTS: 
FORMAL  PARAMETERS: 
COMMON  BLOCKS: 


SUBROUTINES  CALLED: 


To  data  set  INDEXER  common  constants  and  to 
clear  all  common  working  and  storage  arrays  to 
zero. 

INITIND 

None 

AREADAT,  EDITAPE,  EDITERM,  IFTPRNT,  ITP,  KEY ,  KEYC, 
KEYS,  MAX,  MY I DENT,  NAVALTB,  NOPRINT,  PROCESS, 

PRNT,  RADATA,  TRANS,  TWORD,  WRIT,  1,  2,  3,  4,  5, 

7,  9,  10 

None 


CALLED  BY:  INDEXER 


Method 

INITIND  does  no  computation.  Either  through  data  statements  or  executable 
statements,  it  presets  constants  and  arrays  to  their  appropriate  values. 
The  principal  constants  preset  in  data  statements  arc  those  which  define 
the  maximum  limits  of  the  system  (common  block  /MAX/),  the  constants  to 
determine  earth  sector  boundaries  (common  block  /WRIT/),  and  certain 
masks  used  in  packing  and  unpacking  (common  block  /KEYC/).  Subroutine 
INITIND  is  illustrated  below  in  figure  117. 


Fig.  117.  Subroutine  INITIND 
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SUBROUTINE  RE AD IN 


PURPOSE: 

To  read  the  card(s)  containing  print  options  and 
set  print  controls  for  INDEXER;  to  read  the  cards 
containing  the  VLRAD  input  parameters;  and  to 
read  the  card  containing  the  missile  vulnerability 
parameter. 

ENTRY  POINTS: 

READ  IN 

FORMAL  PARAMETERS: 

None 

COMMON  BLOCKS: 

PRNT,  RADATA,  3 

SUBROUTINES  CALLED: 

None 

CALLED  BY: 

INDEXER 

Method 


This  subroutine  (figure  118)  reads  the  input  parameters  contained  in  the 
execution  deck.  First,  the  cards  indicating  the  selected  print  options 
are  read.  These  print,  options  are  controlled  by  one  or  more  data  cards 
containing  integers  between  1  and  15.  These  integers,  which  must  be 
right-justified  in  10-column  fields,  control  the  printed  output  as  follows: 


PRINT  OPTION 
1 
2 
5 

4 

5 

6 

7 

8 
9 

10 

11-15 


DATA  PRINTED 
Breakpoint  tables 
INDEXDB 

Data  base  directory  only 
Type  data  for  the  Simulator 
Collocation  array 
Status  array/r:.Jar  and  ABM  data 
Collocation  islands 
Complex  targets 

Reserved  for  future  developments 

Terminal  interceptor,  payload,  and  IDB1,  tables 

Not  used. 
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Next,  the  VLRAD  input  parameter  cards  are  read",  and  the  data  are  stored 
in  common  block  /RADATA/. 

The  final  data  card  read  by  READIN  contains  the  missile  vulnerability 
parameter  established  to  characterize  missile  launch  sites  in  their 
softened  condition  immediately  after  lift-off.  This  parameter  is  stored 
in  the  first  word  of  the  CVULN  array,  and  control  is  returned  u>  INDEXER. 
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SUBROUTINE  TDEFSTT 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED : 
CALLED  BY: 


To  make  the  final  assignment  of  terminal  defense 
indices  so  that  collocation  islands  are  treated 
as  single  targets  for  defense  purposes, 

TDEFSTAT ,  TDEFSTT  (duplicate  entry) 

None  1 

KEY,  KEYS,  3,5,7 

FIND  IT,  I PUT,  I GET 

INDEXER 

i 


Method  .  ’ 

TDEFSTT  begins  by  testing  Hie  first'  location  in  the  arrav  ITHRM  for  n  ■ 
positive  value  of  INDEXNO,  which  indicates  that  the  item'  has  terminal 
defenses.  Whenever  a  nonpositivo  value  is  encountered,  control  is 
returned  to  INDEXER.  Otherwise,  the.array  NT1NTX  is  tested  to  see  if  the 
item  belongs  to  a  collocation  island  to  which  a  terminal  defense  index 
already  has  been  assigned.’  'This  is  indicated  by  negating  the  terminal 
defense  index  assigned  to  that  island  and  storing  it  in  array  NT1NTX. 
Thus,  if  the  value  in  array  NTTNTX  is  found  to,be  negative,  it  must  be 
the  terminal  defense  index  to  be  assigned  to  all  targets  in  tho  island. 
The  index  then  is  reset  to  its  positive  value  and  packed  under  KTERM  in 
the  status  array.  , 

If  the  value  in  array  NTINTX  is  found  to  be  positive,  the  item  under  con¬ 
sideration  is  tested  for  collocation.  An  uncoi located  target  retains  the 
original  terminal  defense  index  1,  which  is  packed  under.  KTERM  in  tho 
STATUS  array;  a  collocated  target  belonging  to  a  collocation  island  with 
no  previously  assigned  index  is  treated  in  the  following  manner. 

Subroutine  FIN1HT  is  called  to  retrieve  the  index  to  the 'word  in  array 
COLAR  in  which  the  value  of  INDEXNO,  has  been  packed.  The  number  of 
targets  in  the  island  is  then  unpacked  from  the  word'  for  use;  in  cycling' 
through  all  targets  in  the  island.  The  attribute  INDEXNO  is  unpacked 
from  cacli  consecutive  word  and  tes,  sd  against  the  originii  value  of 
INDEXNO  (in  ITERM(l))  to  sec  if  the  cycle  is  complete.  If  the  two  va.hu  •; 
do  not  match,  the  target  is  checked  for  terminal'  interceptors  (logical 
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array  LTERM) .  When  terminal  interceptors  are  indicated,  the  number 
fJTINT  is  retrieved  from  array  NTINTX(J)  and  added  to  the  number  being 
accumulated  under  the  original  target  (NTINTX(I)).  If  no  terminal  inter¬ 
ceptors  are  indicated,  INDEXNO  is  added  to  the  list  in  ITERM,  since  the 
target  assumes  the  terminal  interceptors  of  the  collocation  island  and 
must  be  so  indicated  in  the  STATUS  array.  As  each  additional  target  in 
the  island  is  encountered,  the  negative  index  I  replaces  the  number  of 
terminal  interceptors  for  the  target  (NTINTX(J))  to  indicate  that  the 
target  already  has  been  processed. 

Mien  the  cycle  through  the  island  is  complete,  the  index  of  the  original 
target  is  packed  under  KTERM  in  the  STATUS  array.  The  next  target  in  the 
list  ITERM  then  is  considered.  When  the  next  item  on  the  list  is  zero, 
control  is  returned  to  INDEXER. 

Subroutine  TDEFSTT  is  illustrated  in  figure  119. 
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SUBROUTINE  VLRADI 


PURPOSE : 

To  find 
against 
to  set  1 

the  lethal  radius  of  a  weapon  delivered 
a  target  of  a  specified  vulnerability,  and 
:N  for  use  by  the  calling  subroutine. 

ENTRY  POINTS: 

VLRADI 

FORMAL  PARAMETERS: 

YIELD  - 
NVN 

HOB 

FN 

Yield  of  weapon  in  megatons 

Vulnerability  paramameter  of  target 
Weapon  height  of  burst 

Parameter  specifying  shape  of  damage 
function 

COMMON  BLOCKS: 

RADATA 

SUBROUTINES  CALLED: 

EXPF 

CALLED  BY: 

INDEXER 

Method 


NVN  is  decoded  into  the  appropriate  vulnerability  number  VN,  the  letter 
(P  or  Q) ,  and  the  K-faetor  XK.  The  cube  root  of  the  yield  is  extracted. 
Then  the  adjusted  vulnerability  number  AVN  is  determined  by  methods 
described  in  "Computer  Computation  of  Weapon  Radius,"  B- 139-61 ,  Air  Force 
Intelligence!  Center.  FN  is  set  to  six  or  three  for  P  and  Q  type  targets, 
respectively, 

Common  block  /RADATA/  contains  four  arrays  (for  the  four  combinations 
of  P  or  Q  vulnerability  and  air-or-surface  burst)  each  of  which  contains 
the  natural  logarithm  of  the  lethal  radius  (in  nautical  miles)  of  a  one- 
megaton  burst.  The  data  arc  at  intervals  of  five  vulnerability  numbers. 
Subroutine  VLRADI  interpolates  xn  the  appropriate  array  to  find  the 
logarithm  of  the  one-megaton  lethal  radius  for  AVN.  The  lethal  radius  of 
the  weapon  is  then  determined  by  exponentiating  and  multiplying  by  the 
cube  root  of  the  yield. 

A  flowchart  for  VLRADI  is  shown  in  figure  120. 
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Fig.  120.  Subroutine  VI.RADI 
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SUBROUTINE  WRPRNT 


PURPOSE: 

ENTRY  POINTS: 
FORMAL  PARAMETERS: 
COMMON  BLOCKS: 


SUBROUTINES  CALLED: 
CALLED  BY: 


To  execute  the  prints  required  when  INDEXER 
print  options  4,  6,  or  10  are  requested, 

WRPRNT 

None 

ARHAUAT,  IFTPRNT,  ITP,  KEY,  KHYC ,  KEYS,  MAX, 
MY  1  DENT,  NAVALTB,  NOPRINT,  RADATA,  PRNT, 
TRANS,  TWORD,  WRIT,  I,  2,  3,  4,  5,  7,  9,  10, 
PROCESS,  ED (TERM,  ED I TAPE 


I  GET 
INDEXER 


Method 


Subroutine  WRPRNT  is  used  to  print  the  contents  of  several  data  arrays 
associated  with  program  INDEXER  print  options  4,  6,  and  10.  A 
description  of  these  print  options  and  the  associated  print  formats  is 
presented  in  the  User's  Manual  (see  Output,  Program  INDEXER,  chapter  2 
of  Volume  I  and  chapter  3  of  Volume  II). 

As  shown  in  figure  121,  WRPRNT  examines  the  print  option  switches  to 
determine  which  prints,  if  any,  are  required.  If  no  prints  arc  required, 
control  is  returned  to  INDEXER.  Print  option  switch  4  is  examined 
first  to  determine  if  the  simulation-type  data  arc  to  bo  printed.  If 
not,  switch  6  is  examined  to  determine  if  the  STATUS  array  and 
antibul  listic  missile  (ABM)  data  arc  to  be  printed.  As  indicated  in  the 
flowchart,  switch  10  which  controls  the  print  of  the  terminal  ABM  data 
is  only  checked  if  print  option  4  was  also  selected  by  the  user  (i.e., 
print  option  10  can  only  be  used  in  conjunction  with  print  option  4). 
Subroutine  WRPRNT  performs  no  computation.  It  merely  prints  the 
indicated  data  arrays. 
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SUBROUTINE  WRSIMT 


PURPOSE: :  To  write  the  Simulator  data  tape  SIMTAPIi . 

ENTRY  POINTS:  WRSIMT 


FORMAL  PARAMETERS:  NOP  -  A  flag  which  indicates  the  write  operation 

to  be  performed 

COMMON  BLOCKS:  AREADAT ,  I FTPRNT ,  ITP,  KEY,  KP.YC,  KEYS,  MAX, 

MYIUENT,  NAVALTB,  NOPRINT,  RADATA,  PRNT,  TRANS, 
TWORD,  WRIT,  1,  2,  3,  4,  5,  7,  9,  10,  PROCESS, 
EDTTERM ,  ED  I TAPE 


SUBROUTINES  CALLED:  SETWRIT,  WRWORD,  WRARRAY,  TP.RUTAP 

CALLED  BY:  INDEXER 


Method 


The  data  base  information  which  is  required  by  the  Simulator  is  written 
onto  tape  SIMTAPE  by  subroutine  WRSIMT.  This  information  includes  the 
index  breakpoint  tables;  the  CO EAR  array,  which  contains  packed  data  for 
collocated  targets;  the  STATUS  array,  which  contains  packed  data  on  all 
potential  targets;  and  several  other  arrays  containing  characteristics 
of  weapon  types,  characteristics  of  warhead  types,  and  defense  capabili¬ 
ties.  When  called,  this  subroutine  examines  the  write  option  flag 
NOP (1-4)  and  writes  tiio  appropriate  data  onto  the  SIMTAPE.  Subroutine 
WRSIMT'  is  illustrated  in  figure  122, 
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Fig.  122.  Subroutine  WRSIMT 
(Sheet  1  of  2) 
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CHAPTER  8 
PROGRAM  BASES DM 


PURPOSE : 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS : 
SUBROUTINES  CALLED: 


To  summarize  the  input  data  base  and  to  print 
these  summaries  in  tabular  form. 

BASESUM 

None 

DIRECTRY,  EDITERM,  PROCESS,  TABLES 

INITEDiT,  INITAPE* ,  INPITHM,  ITLE,  NEXTITEM, 
PAGES KP 


Method 


Program  BASESUM  provides  the  capability  of  summarizing  the  data  base 
contained  on  the  output  tapes  produced  by  programs  QUIKBASE  (QUIKDB 
tape),  PASEMOD  (QKMODDB  or  JNMODDB  tapes),  or  INDEXER  ( INDEXDB  tape). 
The  data  base  tape  to  be  summarized  is  the  only  required  user  input, 
and  there  are  no  output  files  created  by  BASESUM. 

To  summarize  the  contents  of  a  data  base  tape,  two  passes  are  made 
through  the  tape  to  summarize,  in  order,  the  Blue  and  Red  sides.  For 
each  class;  e.g..  Bomber,  and  each  side,  a  summary  table  is  printed. 
Within  these  tables,  the  columns  reflect,  the  types  within  the  class;' 
e.g.,  B-S2  and  B-58,  and  the  rows  reflect  the  attributes;  e.g.,  RANGE, 
defined  for  the  class. 

The  following  conventions  apply  to  the  values  of  the  attributes  printed 
in  the  table.  All  floating  point  values  are  the  average  value,  and  all 
integer  and  PCD  values  are  the  first  one  encountered  in  reading  the 
data  base  tape.  If  the  value  changes  within  any  type,  the  value  in  the 
matrix  is  marked  with  an  asterisk. 

Figure  12’>  depicts  t|ie  logical  flow  of  this  program.  As  indicated,  a 
flag  is  set  to  cause  side  blue  to  be  summarized  first.  Next,  the 
array  dimensions  ore  set  to  correspond  to  the  expected  size  of  the 
data  base.  The  division  at  the  present  time  is  25  classes,  200  types, 
and  100  attributes  per  class  per  side.  If  any  of  these  dimensions  is 
exceeded  in  processing  the  data  base,  an  appropri;  * e  error  message  is 
printed.  Hie  directory  and  the  first  item  are  now  read  in.  and  the 
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positions  of  CLASS,  TYPE,  and  SIDE  in  the  VALUE  array  are  found  by 
comparing  these  attribute  names  with  the  ATTNAME  array.  As  each  item 
is  read  in,  it  is  examined  in  several  ways.  It  is  skipped  if  value  of 
the  attribute  SIDE  is  not  the  side  currently  being  processed.  If  this 
requirement  is  met,  the  class  name  is  checked  to  determine  whether  .it  is 
a  new  class  and  whether  storage  is  available.  If  so,  the  new  class  is 
stored  and  the  class  counter  is  incremented.  Next,  the  typo  name  is 
compared  to  those  previously  processed.  If  no  match  is  found  and  space 
is  available,  the  new  name  is  stored;  the  type  counter  is  incremented; 
and  the  index  to  NAMECLAS  is  stored.  If  a  type  name  match  is  found,  a 
check  is  made  to  ascertain  whether  the  class  is  the  same.  If  not,  a 
further  check  is  made  to  find  a  name  match  later  in  the  table,  if  none 
is  found,  control  goes  to  the  new  type  case.  At  this  point  in  the  flow, 
the  number-of-items  counter  is  incremented,  since  both  the  type  and  the 
class  are  known.  Now  all  the  attribute  names  defined  for  this  class  are 
examined.  The  value  of  the  attribute  is  stored  directly  for  newly 
defined  attribute  names  or  the  first  appearance  of  an  attribute  in  a 
type  and  class..  The  procedure  differs,  however,  for  attributes  previously 
defined.  A  logical  array  ITEMS  is  examined  for  a  previous  change  in 
the  value  of  this  attribute  if  it  is  not  the  first  item  encountered  of 
this  class  and  type.  If  the  present  value  is  equal  to  the  previous 
value,  the  next  item  on  the  data  base  tape  is  processed.  If  the  value 
is  different,  that  fact  is  recorded  in  ITEMS,  If  the  value  is  integer 
or  BCD,  nothing  further  is  required.  If  it  is  floating  point,  the 
previous  value  is  multiplied  by  the  current  number  of  items  minus  one, 
and  the  present  value  is  then  added  in. 

After  the  last  item  has  been  processed,  the  floating  point  values  are 
averaged,  and  all  of  the  tables  for  this  side  are  printed  out.  The 
entire  process  is  repeated  for  side  Red.  - 


Common  Block  Definition 

Program  BASESUM  references  the  following  utility  routine  common  blocks, 
which  are  described  in  appendix  A  of  this  manual:  /DIRECTRY/,  /HLUTERM/, 
and  /PROCESS/ . 

In  addition,  BASESUM  uses  common  block  /TABLES/  which  contains  the  arrays 
described  in  table  15. 


Table  IS.  Program  BASES UM  Common  Blocks 


BLOCK 

TABLES 


VARIABLE 

OR  ARRAY  DESCRIPTION 

NAMECLASS  Class  names 

NAMHTYPE  Type  names 

CLASTYi’E  Index  of  class  to  which  each  type  belongs 

NAMliATT  Por  each  class,  pairs  of  locations  in  which 

(equivalence^  the  first  is  the  name  of  the  attribute,  and 

to  NMATT)  tiie  second  is  its  location  in  the  VALUE  array 

NUMATT  Number  of  defined  .attributes  for  each  class 

VALATT  Value  of  each  attribute  for  each  type 

(equivalence 
to  MVALATT) 

ITEMS  Set  to  1  if  value  of  attribute  has  changed; 

0  if  lift 

P ARRAY  Print  array 

MPORMAT  Format  of  each  print  line 


|  AM  flout  tis  J 

f  i»  This  \„ 
l  Attribute  \ii2_, 
\  Defined?  / 


Previously  \ 
Defined  V 
for  This  f 
Clasp*  / 


/Has  Value  of\ 
I "°/ Tb  1  s  Attribute^ 
Previously  ) 
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APPENDIX  A 

UTILITY  ROUTINE  COMMON  BLOCKS 


The  following  is  a  description  of  the  common  blocks  associated  wHh  all  of 
the  utility  programs  except  for  programs  0UTF1LE  and  RELOAUF.  In  addition, 
only  those  filehandler  common  blocks  used  by  the  calling  programs  for  data 
transfer  are  included  in  this  appendix.  For  a  complete  list  of  filehandler 
common  blocks  see  table  2. 


VARIABLE 

BLOCK  OR  ARRAY  DESCRIPTION 

A  R  Interpolation  calculation  matrix 


B 


S 


Temporary  interpolation  matrix 


BNKBNDS 


IAMLOW  Lower  storage  limit  in  both  banks 

I AM  1 1 G1 1  Upper  storage  limit  in  both  banks 


C 


SOL 


Solution  vector  for  interpolation  calculation 


DATA  X 


Storage  area  for  file  data 


DATPK 


MASK  Table  of  masking  variables 

ISI1TAB  Table  of  shifting  variables 


DIUECTRY 


Contents  of  directory 

IDEE  Index  of  last  defined  attribute  in  tables 

LASTLIST  Index  of  last  entry  in  I.1STVALS 

ND1MD1R  Maximum  size  of  tables 

NDIMLIST  Maximum  size  of  LISTVALS 


142 


BLOCK 

VARIABLE 
OR  ARRAY 

DESCRIPTION 

DIROCTRY 

ATTNAME 

Hollerith  name  of  attribute 

(cont.) 

I  FOPuMAT 

Input/output  conversion  format  (FORTRAN)  for 
attribute  values 

I  CODE 

Code  .specifying  type  of  values  and  method  of 
checking 

DEFAULT 

I  DEFAULT 

Undefined  value  for  attribute 

N1 

FN1 

|  Minimum  allowed  value  (range  check)  or  index 

|  of  beginning  of  allowed  list  in  LISTVALS 

^  (list  checking) 

N2  \ 

FN?  j 

Maximum  allowed  value  (range  check)  or  index 
of  end  of  allowed  list  in  LISTVALS  (list 
checking) 

LISTCHEK 

Set  to  TRUE  for  list  checking;  FALSE  for 
range  checking 

GLOB 

TRUE  when  global  definition  in  force;  FALSE 
otherwise 

LISTVALS 

Contains  allowable  values  for  list  checking 

EDITAPE 

IN  TP 

Data  base  tape  editing  information 

Logical  tape  number  of  input  data  base 

NOUT 

Number  of  output  tapes 

ITOUT 

Logical  tape  number  of  output  data  bases 

JOUT 

Logical  tape  number  of  current  output  tape 

El)  I  TERM 

End  of  data  base  tape  signal 

ISWTliRM 

Set  to  1  if  not  end  of  tape;  set  to  2  if  end 
of  tape 

ERRCODE 

KABORT 

Abort  condition  code 

KWARN 

Warning  condition  code 

1 1  t 


BLOCK 


VARIABLE 
OR  ARICAY 


DESCRIPTION 


ERRMKSS  I ABORT  Abort  message 

I WAI-4N  Warning  message 

ERRORM  Error  signals 

JERR  Logical  unit  number  for  output  error  messages 

IERSW  Set  to  1  i f  no  errors  detected;  to  2  if  errors 

are  found 


FI LABEL 

INI DENT 

Eight  letters  of  (input)  file  name;  read  from 
file 

INRUNNO 

Run  number;  read  from  file 

INDATE 

Date  generated;  read  from  file 

INFORM 

Format;  read  from  file 

INSECR 

Security;  read  from  file 

INTI  Mi; 

Time  generated;  read  from  file 

INLNCTH 

Length  of  file 

IN COMM 

Five  words  available  for  user  comments 

FI  LEIN 

NAME 

Logical  disk  file  name 

I FTPRNT 

I FTPRNT 

Controls  debug  printout 

IREC 

IREC 

Number  of  records  read  from  current  file 

ITP 

ITP 

Tape  currently  being  used  (integer  value 

1  to  10) 

MPRTOPT 

Print  control 

MPRTOPT 

Set  to  1  to  print  directory  card  images; 

0  otherwise 


Il'l 


BLOCK 

VARIABLE 

OR  ARRAY 

DESCRIPTION 

MY I  DENT 

MY I DENT 

Tape  identifier 

MY LABEL 

MY FORM 

Format  designation 

MYSECR 

Security  designation 

MYLNGTH 

Maximum  file  length  (words) 

MY COMM 

Comments,  if  any 

NOPRINT 

NOPRINT 

1  to  print  tape  label 

OUTFILES 

IOUTDEC 

Logical  tape  number  on  which  DECLARES 
writes  the  modified  FORTRAN  source 
program  (source  code  on  this  tape  is 
subsequently  compiled) 

ILIST 

Logical  tape  number  on  which  the  input 
source  program  is  printed 

IBODY 

Not  used 

POLITE 

SI 

First  point  latitude 

Tl  First  point  longitude 

S2  Second  point  latitude 

T2  Second  point  longitude 

FACTOR  Fraction  of  distance  to  be  interpolated 

SR  Interpolated  point  latitude 

TR  Interpolated  point  longitude 

PROCESS  Stores  item  information 

N1  Number  of  attribute-value  pairs  in  incoming 

item 

Twi cc  N 1 

Index  of  a  changed  attribute 


4  IS 


NV 

NC 


VARIABLE 


BLOCK 

OR  ARRAY 

DESCRIPTION 

INITEM 

Alternate  attribute  indices  and  values 

VALUE 

Current  value  of  all  attributes 

DOF 

TRUE  if  attribute  currently  defined;  FALSE 
otherwise 

LG  LOB 

TRUE  if  attribute  currently  globally  defined 
FALSE  otherwise 

PRNTCOMM 

Printing  information 

SAMiiARRY 

Set  1  if  attribute  defined  for  item;  0 
otherwise 

DEFINED 

Unused 

INDXOTHR 

Indices  of  already  defined  attributes 

PAGE DATA 

Attributes  and  values  changing  on  page 

COMATNAM 

Names  of  attributes  common  to  page 

COMATVAL 

Values  of  attributes  common  to  page 

1COI.SAVE 

Number  of  columns  on  page 

PRTOPT 

Print  control 

NPRTOPT 

Set  to  1  to  print  item  card  images;  0 
otherwise 

TODAY 

NOWRUNO 

Current  run  number  (currently  not  used) 

NOWDATE 

The  date  of  the  run;  written  cn  file  label 
as  6th  word 

NOWTIME 

The  time  of  the  run;  written  on  file  label 
as  I 3th  word 

WORD 

TWORD 

Word  where  next  data  stream  word  is  placed 

DECLARES  print  control  for  listing  input 
source  deck;  ALL  if  prints  required; 
otherwise  set  to  NONE 
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APPENDIX  B 

QUICK  ATTRIBUTE  NAMES  AND  DESCRIPTIONS 


ATTRIBUTE 

NAME 

ABRATE 

ADBLI 

ADBLR 

ADEFCMP 

ADEFZON 

AGX 


AGY 


AH  OB 

ALERTDBL 

AI-ERTDLY 


AREA 


DESCRIPTION 


Probability  of  aircraft  in-flight  abort  per  hour 
of  flying  time 

ALERTDBL  probability  for  initiative  attack 

ALERTDBL  probability  for  a  retaliatory  attack 

Area  ballistic  missile  defense  (BMD)  component 
index  (radar  or  missile  launch  site) 

Area  ballistic  missile  defense  (BMD)  cone  number 

Offset  X-coordinate  of  AGZ  (fiftieths  of  nautical 
miles) 

Offset  Y-coordinate  of  AGZ  (fiftieths  of  nautical 
miles) 

Actual  height  of  burst  of  weapon  (air  or  ground) 

Probability  of  destruction  before  launch  (DBL) 
of  alert  delivery  vehicle  (missile,  or  bomber) 

Delay  of  alert  vehicle  before  commencing  launch 
(hours) 

Area  of  a  bomber  defense  ZONE  (millions  of 
nautical  miles^) 


AS MTV PE 
ATT R CORK 


ATTRLEd 


Ai r- to- surface  missile  type 

Attrition  parameter  for  a  bomber  corridor  (probab¬ 
ility  of  attiltion  per  nautical  mile) 

Attrition  parameter  for  each  route  leg  in  bomber 
sortie  (probability  of  attrition  per  nautical  mile) 

Amount  of  original  attrition  that  remains  after 
defense  suppression 
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ATTRSUPF 


ATTRIBUTE 

NAME 

A20N1 

AZ0N2 

AZ0N3 

BCODE 

BENO 

BLEGNO 

CATCODE 

COREL 

CEP 

CLASS 

CLASS? 

CNTRYLOC 

CNTRYOWN 

CNTYLOCT 

CNTYOWNT 

CODE 

cpa  cry 


DESCRIPTION 


First  area  defense  zone  covered  by  a  BMj  long-range 
radar 

Second  area  defense  zone  covered  by  a  BMD  long- 
range  radar 

Third  area  defense  zone  covered  by  a  BMD  long-range 
radar 

Code  indicating  the  outcome  of  a  simulated  bomber 
event 

Bombing  encyclopedia  number 

Index  to  boundaiy  line  segment 

Category  Code  as  reflected  in  Joint  Resource 
Assessment  Data  Base  (JAD) 

Regional  reliability  of  offensive  command  and 
control  (probability) 

Circular  error  probable  (CEP),  delivery  error 
applicable  to  bomber  and  missile  weapons  (nautical 
miles) 

Class  name  assigned  identify  sets  of  TYPES  in  data 
base 

Target  CLASS 

Country  code  for  country  whore  item  is  located 

Country  code  for  country'  which  owns  the  item 

Target  country  code  for  country  where  the  target 
i s  located 

Target  country  code  for  country  which  owns  the 
target 

Outcome  code  for  a  general  event  used  in  simulation 

Capacity  of  a  bomber  recovery  base  (number  of 
vehicles) 
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ATTRIBUTE 

NAME 

DATE IN 

DATEOUT 

DE FRANCE 

DELAY 

DELTA 

DESIG 

DGX 

DGY 

DHOB 

EFECNES1 ) 
EFECNES2) 

EFECTNES 

EVENT 

EVENTN 

FFRAC 


DESCRIPTION1 

Earliest  Jate  in  inventory  (year) 

Latest  date  in  inventory  (year) 

Typical  range  of  interceptors  at  defense  bases  near 
a  corridor  (nautical  miles) 

Delay  time  (e.g.,  launch  delay  time)  (hours) 

Time  interval  between  successive  vehicle  launches 
from  the  same  base  (missile  ox  bomber)  (hours) 

Target  designator  code;  e.g.,  AB100,  which  uniquely 
identifies  each  target  element  included  in  the  data 
base 

Offset  X-coordinate  of  desired  ground  zero  (DG2) 
(fiftieths  of  nautical  miles) 

Offset  Y-coordinate  of  DGZ  (fiftieths  of  nautical 
miles) 

Height  of  burst  of  weapon  (0-ground,  1-air) 

Attributes  assigned  to  fighter  interceptor  units 
(ICLASS  s  5  in  the  data  base) :  the  value  EFECNES1 
or  EFECNES2  is  assigned  to  the  attribute  EFECTNES 
depending  on  value  of  BASEMOD  input  parameter 
POSTURE  (if  POSTURED,  EFECNES1  is  used;  otherwise 
EFECNES2  value  is  assigned) 

Air  defense  capability  (arbitrary  scale)  established 
by  user  to  indicate  relative  effectiveness  of 
air  defense  command  and  control  installations  and 
fighter  interceptor  bases 

Index  to  event  type 

Index  to  type  of  event  which  did  not  occur 

Fission  fraction  (fission  yicld/total  yield) 

Numeric  code  (1  through  9  permitted)  used  to  impose 
restrictions  on  the  allocation  of  weapons  within 
QUICK 

•I  *19 


FLAG 


ATTRIBUTE 

NAME 

FLTNO 

FUNCTION 

rvAUii 

FVAI.Tl 

TV  ALT  2 

111 

M2 

HILOATTR 

I ALERT 
I  ALT 
I  ATTACK. 

I  CLASS 
l CLASST 
[COMPLEX 
tCORR 


DESCRIPTION 

Plight,  number  for  a  sortie 

Operational  application  code  for  a  weapon  system 
f  o .  g ,  ,  I  CBM) 

Fraction  of  value  of  target  in  first  hardness  component 

Fraction  of  target  value  that  disappears  by  T1 
(percent) 

Fraction  of  target  value  that  disappears  by  T2 
(percent) 

First  hardness  component  of  a  target  (VUI.N) 

Second  hardness  component  of  a  target  (VULN) 

The  ratio  of  the  low-altitude  attrition  rate  to 
the  high-altitude  rate  (decimal  fraction) 

Alert  status;  I  =  alert,  2  =  nonalcrt 

Altitude  index  (1  =•  high,  0  =  low) 

Selection  index  for  preferential  area  HMD;  1  forces 
target  selection  for  defense. 

Class  index  assigned  for  game 

Target  class  index 

Complex  index 

Bomber  corridor  index  number  assigned  in  program 
PLANSET: 

1  -  Tactical  (HJNCTION=TAC)  aircraft  corridor 

(TYPE  name  DUMMY  in  the  data  base) 

2  -  Naval  attack  corridor  (TYPE  name  NAVALAIR 

in  the  data  base)  used  by  bomber  units 
with  PkNAV  greater  than  zero 

>7.  ■  Other  corridors  used  by  long  range  bombers 
(FUNCTION  ERA) 
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ATTRIBUTE 

NAME 

I  DEL 

I  DUD 


IGIW 
I GROUP 

I  MIRV 

1NDEXNO 

INDV 
INTAR 
I  PENMODE 


I  POINT 
I RECMODE 

I  RE FUEL 
I  REG 
I  REP 


I  SITE 


I  TGI' 


IT  I  Ml: 


DESCRIPTION 

Index  to  data  tables  for  time-dependent  destruction 
before  launch  probability 

Dud  warhead  indicator;  assigned  to  weapons  which 
arrive  at  the  target  but  fail  to  detonate;  l=dud 
warhead 

Indices  of  General  Industrial  Worth  (IGIW)  (dollars) 

Group  index  assigned  for  weapon  grouping  during 
game 

Identifying  index  for  system  with  multiple  indepen¬ 
dently  targetable  re-entry  vehicles 

Index  of  a  data  base  item  (potential  target)  used 
during  processing  to  identify  the  item 

Vehicle  index  within  base 

Target  .index  (corresponds  to  INDliXNO) 

Penetration  mode;  1  =  aircraft  uses  penetration 
corridor,  0  a  penetration  corridor  not  used 

Index  to  a  geographic  point 

Recovery  mode;  1  =  aircraft  should  plan  recovery, 

0  =  aircraft  recover)’  not  planned 

Bomber  refueling  code 

Index  t.o  identify  a  geographic  region 

Reprogramming  index  (capability  of  missile 
squadron) 

Site  number 

Target  index  number  assigned  by  Plan  Generation 
subsystem 

Index  to  time  periods  in  time  dependent  DHL  data 
tables 
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ATTR I  BUTli 


NAME 

DESCRIPTION 

I  TYPE 

Type  index  assigned  for  game 

1TYPET 

Target  type  index 

1 VULN 

Index  to  vulnerability  number  table 

IWTYP2 

Second  warhead  type 

.JTYPK 

Type  index  within  class 

JTYPET 

Target  type  index  within  class 

K0RSTYLE 

Parameter  to  adjust  mode  of  corridor 
penetration 

LAT 

Latitude  (degrees)-' 

I.EGN0 

Index  to  line  segment 

LINK 

'Hie  index  of  a  leg  linked  to  the  current  point 

LONG 

Longitude  (degrees)* 

MAJOR 

Major  reference  number  as  reflected  in  the  .Joint 
Resource  Assessment  Data  Base  (JAD) 

MAXFPACV 

Maximum  value  of  weapon  resources  to  be  used  relative 
to  target  value  (in  prc'cssing  MAXC0ST=MAXPRACV) 

MAXK1LL 

Desired  maximum  damage  expected  for  a  target 

MINKILL 

The  required  minimum  damage  established  for 
a  target 

*  Latitude  ami  longitude  are  carried  internally  in  the  QUICK  system  in 
the  following  format: 

North  latitude  0.  (equator)  to  +90.  (North  Pole) 

South  latitude  0.  (equator)  to  -90.  (South  Pole) 

Hast  longitude  180.  to  360.  (Greenwich  .Meridian) 

West  longitude  0.  (Greenwich  Meridian)  to  180. 

These  attributes  may  he  input  in  either  the  above  format  or  in 
standard  deg  rev  ,  minute,  second,  direction  for.'. at. 


ATTRIBITTE 

NAME 


MINOR 


MISDEF 


MVA 


Ml  VI  IDS 


DESCRIP1 ION 

Minor  reference  number  as  reflected  in  JAD 
to  identify  an  item 

Number  of  terminal  ballistic  missile  interceptors 
for  a  target 

Manufacturing  value  added  (MVA) ;  indicates  the 
amount  of  value  added  by  manufacture  within  a 
specific  area  (expressed  in  U.S.  dollars) 

Number  of  missile  warheads  penetrating  area 
defenses  to  terminal  defense 


NADBL1 


NALRTDBL  for  initiative  attack 


NADBLR 

NAINT 

NALRTDBL 

NALRTDLY 


NAME 


NAREADEC 

NAS  MS 
NCM 

N DC COYS 

NDliT 

NEXT ZONE 


NALRTDBL  for  retali atory  attack 

Number  of  area  ballistic  missile  interceptors  at 
an  interceptor  launch  base 

Probability  of  destruction  before  launch  (DBL) 
of  non-alert  vehicle 

Delay  of  non-alert  vehicle  before  commencing 
launch  (hoifrs) 

Arbitrary  alphameric  descriptor  for  any  item 
included  in  the  data  base 

Number  of  decoys  per  independent  re-entry  vehicle 
for  area  BMD 

Number  of  ASMs  carried  by  a  bomber 

Number  of  countermeasures  carried  by  vehicle 

Number  of  decoys  on  a  bomber  or  number  of  decoys 
per  independent  re-entry  vehicle  for  terminal  BMD 

Number  of  warheads  detonating  in  current  event 

The  adjacent  zone  to  a  side  of  a  defense  zone 

Number  of  missiles  per  site 
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NMPsrrn 


ATTRIBUTE 

NAME 

NOALERT 

NOBOMB 1 

NOBOMB  2 

NO IN COM 

NOPERSQN 

NOPERSQ1  ) 
NOPERSQ2 > 
NOPERSQ3  ) 

NPEN 
NTARG 
NT  I  NT 
NWHDS 

NWPNS 

NWTYPE 

PARRIVE 

PAYLOAD 


DDES 

PDUD 

PEN 

PFPF 


PINC 


DESCRIPTION 

i  ...  i  ■  ■  ■  I 

Number  of  vehicles  on  alert  at  a  base  , 

Number  of  first  bomb  type  carried  by  vehicle 

Number  of  second  bomb  type  carried  by  vehicle 

Number  of  delivery  vehicles  in  commission 

Number  of  weapon  vehicles  per  squadron 

Attributes  used  in  program  BASEMOD  to  compute  the 
value  of  the  attribute  NOPERSQN  for  bomber  units;, 
numbers  1,  2,  and  3  specify  surprise,  initiative, 
and  retaliatory  attack  plans' respectively  1 

Number  of  warheads  penetrating  in  current  event 

Number  of  targets  in  missile  launch  event 

Number  of  terminal  BMD  interceptors  at  target 

Number  of  warheads  per  independent  re-entry  vehicl 
(missiles)  : 

Number  of  weapons  in  a  group 
Warhead  type 

Probability  of  bomber  arrival  in  current  event 

Index  which  identifies  entire  weapon  and 
penetration  aid  complement  on  a  vehicle 

Probability  that  launch  failure  destroys  missile 

Probability  a  warhead  will  fail  to  detonate 

Penetration  probability  For  a  weapon 

Probability  of  failure  during  powered  flight 
(missiles) 

Probability  that  a  missile  is  ill  commission 


45-1 


ATTRIBUTE 

NAME  DESCRIPTION 


PKMIS  Probability  a  missile  fails  to  penetrate  terminal 

defense 


PKNAV  Single  shot  kill  probability  of  a  weapon  against 

a  naval  target  (a  value  greater  than  zero  restrict; 
weapon  use  to  naval  targets) 

l1  LAli')'  Probability  of  vehicle  launch  abort 


PLACE 

PLACEN 


Index  to  geographic  location  of  an  event 

i 

Index  to  geographic  location  of  an  event  which 
did  not  occur 


POP 

POSTURE 

PRABT 

PRIMETAR 

PSASW 

RADIUS 
RANGE 
RANGE DEC 


RANGER):  E 
REL 


RESERVE. 


Population  (cities)  (thousands) 

Force  readiness  condition 

Probability  of  refueling  abort 

Prime  target  flag;  1  signifies  priority  target 
in  a  complex 

Destruction  before  launch  probability  assigned  a 
weapon  for  a  specified  time  period 

Size  descriptor  for  area  targets  (nautical  miles) 

Vehicle  range  (nautical  miles) 

Range  decrement  for  low-altitude  urcraft  flight 
(high  range/ low  range) 

Range  (nautical  miles)  of  bomber  with  refueling 

Reliability  -  probability  that  weapon  system  will 
arrive  at  target  given  successful  launch 

Technique  used  to  remove  certain  targets  from 
weapon  allocation  when  RESERVE  =  0 

Item  side  name,  currently  cither  "RED  "  or  "BLUE" 


S I DE 


ATTRIBUTE 

NAME 

SITENO 

.'5PDLO 

SPEED 

SQNNO 

T1 

T2 


T3 


TAIM 


DESCRIPTION 

Site  number  (currently  for  individual  missile 
sites) 

Speed  at  low  altitude  (knots) 

Speed  (knots) 

Squadron  number 

Time  at  departure  of  first  value  component  of  a 
target 

Time  of  departure  of  second  value  component  of  a 
target. 

Time  of  departure  of  third  value  component  of  a 
target 

Number  of  aim  points  perceived  by  terminal  defense 
in  current  event 


TARDEPiir 

TARDEFLO 

TASK 

TGTSTAT 

TIME 

TIMEN 

FMDill. 


Level  of  local  bomber  defense  at  high  altitude* 

Level  of  local  bomber  defense  at  low  altitude* 

Target,  task  code  indicating  targeting  priority 

Indicates  target  status  as  dynamic  or  ncnulynami  c; 
in  simulation  status  (allvc/dead)  is  maintained 
for  dynamic  targets 

Game  time  at  which  event  occurred  (hours) 

Time  planned  for  event  which  did  not  occur  (hours) 

Mean  delay  time  to  relaunch  after  a  nondestructive 
aircraft,  abort  (hours) 


*  Arbitrary  units  sealed  by  user-input  parameter  in  Plan  Generation 
subsystem,  Minimum  value  0  for  no  defense.  Highest  allowed  defense 
level  is  i  7 
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ATTRIBUTE 

NAME 

TPASW 

TRETARG 

TTOS 

TVUL 

TYPE 

TYPET 

TYPE1  ] 
TYPE 2 j 

VAL 

VALU 

VAL1 

VAL2 

VULN 

WACNO 

WllDfTYPE 

WHDTYPEN 

YIELD 


DESCRIPTION 

Tine  at  which  a  time  period  ends  for  DBL  data 
tables;  there  may  be  up  to  10  time  periods  for 
each  table 

Time  required  to  retarget  for  known  in-flight 
missile  aborts  (hours) 

Total  time  on  station  (for  a  tanker)  (hours) 

Time  a  missile  remains  within  vulnerable  range 
of  launch  site  (hours) 

Arbitrary  alphameric  designator  (type  name)  to 
identify  smallest  sets  in  data  base 

Target  TYPE 

Attributes  assigned  fighter  interceptor  units 
(ICLASS=5  in  the  data  base) :  attribute  TYPE  is 
assigned  the  TYPE1  or  TYPE2  value  based  on  BASEMOD 
input  parameter  POSTURE  (POSTURE=l  TYPE1  is  used; 
otherwise  TYPLI2  value  used) 

Relative  value  of  an  item  within  its  CLASS  as 
established  in  the  data  base  by  the  user 

Game  value  of  an  item  (assigned  in  plan 
generation  based  on  user- input  parameters) 

Attributes  assigned  fighter  interceptor  units 
(ICIASS=5  in  the  data  base):  attribute  VAL  is 
assigned  the  VAL1  or  VAL?  value  based  on  BASEMOD 
input  parameter  POSTURE  (POSTURE*!,  VAL1  is  used; 
otherwise  VAL2  value  is  assigned) 

Vulnerability  number 

World  aeronautical  chart  number 

Warhead  type  index  assigned  in  the  data  base 

Warhead  type  index  (used  with  EVENTN) 

Yield  (Ml') 

An  area  bomber  defense  zone  enclosed  by  a  set  of 
linked  boundary  points 


ZONE 


APPENDIX  C 

ENTRY  POINTS  FOR  QUICK  UTILITY  ROUTINES 


This  appendix  contains  an  alphabetic  listing  of  the  entry 
points  associated  with  all  utility  programs  and  subroutines . 
Subroutines  associated  with  each  of  these  entry  points  arc 
indicated  below. 


ENTRY  POINT 

TO  SUBROUTINE 

ABORT 

ABORT 

A LOGO IR 

I'l  LE1INR 

ANOTHER 

ANOTI IE1I 

ATN2PI 

ATN2PI 

CHANGE 

CHANGE 

CLOSPIL 

CLOSPIL 

CLRCMON 

CLRCMON 

DEALT!  V 

I'l  LEHNR 

DECLARES 

DECLARES 

DEI, LONG 

DLLLONG 

DilTLNG 

Dll-TLONC 

DIET LONG 

1)  I  IT'l.OiNu 

DISTF 

III  S  IT 

DS'JT’ 

DSTE 

ENDDATA 

ENDDATA 

HNDTAPE 

ENDTAI’E 

ERAZE 

EKAZE 

EQUIV 

EQUIV 

l;I  LLDL'MP 

l-l  I.EDUMP 

EILEHNR 

Ill.HIINR 

GLTCLK 

GITCUh.K 

ENTRY  POINT 

GETCLOCK 

CETDATE 

GETDF 

GETLIMIT 

GETLOC 

GETVALU 

I  GET 

INBUFDK 

INERRDK 

INERRTP 

INITAP 

IN I TAPE 

INITEDIT 

IN1TEDT 

IN LABEL 

INPITEM 

INTERP 

INTERPGC 

INTRPGC 

I  PUT 

IT  LI; 

I  WANT 

KEYMAKE 

LOCI; 

LOCREAl) 

LOCWRIT 

locwriti: 

NEK UN IT 
NEXT APE 
HE XT PI U 


4  Si) 


TO  SUBROUTINE 

GETCLOCK 

GETDATE 

GETDF 

GETLIMIT 

GETLOC 

GETVALU 

I  GET 

INBUFDK 

INERRDK 

INERRTP 

FILEHNR 

FILEHNR 

INITEDIT 

INITEDIT 

INLABEL 

INPITEM 

INTERP 

INTERPGC 

INTERPGC 

iPUT 

ITLE 

I  WANT 

KEYMAKE 

LOCF 

LOCREAD 

LOCREAl) 

LOCREAD 

NEWUNIT 

NEXT APE 

NEXTFILE 


liNTRY  POINT 

NEXT ITEM 

NEXTITM 

NODI RC 

NUMGET 

OPENSPL 

ORDER 

OUTBFDK 

OUTBFTP 

OUT  DP 

01 HERDK 

OUTERTP 

OUT PILE 

OUTITEM 

OUTWORDS 

OUTWRDS 

P  AGIiS  KIP 

PAGES KP 

PR.ITliM 

PRNTBAS 

prntbase 
prntusi: 
PRNTDATA 
PRNTDTA 
PRNTD]  RC 

prntdrc 

PRN’TLAB 

PRjV'TAGP' 

prntpge: 

rdarray 

readdir 

RELOAD  I- 


TO  SUBROUTINE 

INITITCM 

INITITEM 

nodirc 

NUMGET 

OPENSi'L 

ORDER 

OUTBEDK 

OUTBFTP 

OUTDP 

OUTERDK 

OUTERTP 

OUTFILE 

OUTITEM 

OUTWORDS 

OUTWORDS 

PAGESKP 

P  AGIiS  KP 

PR ITEM 

PRNTBASE 

PRNTBASE 

PRNTBASE 

PRNTDTA 

PRNTDTA 

PRNTPJ  RC 

PRNTD!  RC 

PI  LEI  IN  R 

PRNTPGE 

PRNTPGE 

RDARRAY 

READDIR 

Rlil.OADI' 


ENTRY  POINT 


TO  SUBROUTINE 


REORDER 

SETUP  Al) 

SETREAD 

SETWRIT 

SETWRITE 

SKIP 

SSKPC 

STORAGE 

THRMTAP 

THRMTAPE 

TERMTPE 

TIMEDAY 

TIMEME 

WARNING 

WRARRAY 

WRITEDIR 

WRITEDR 

WRWORD 


REORDER 

SETHE AP 

SETREAD 

Pi  LEI  INK 

F I  LEI  IN  R 

SKIP 

SSKPC 

STORAGE 

TERMTAP 

TERMTATJ 

TERMTAP 

TIMEDAY 

TIMEME 

ABORT 

RDARRAY 

WRITEDIR 

WRITEDIR 

PILEUNE 


appendix  n 

UTILIZATION  OP  GENERAL  UTILITY  ROUTINES 


The  following  is  a  list  of  the  programs  anti  subroutines  which  call  the 
general  utility  routines  described  in  chapter  4. 


UTILITY  ROUTINE  CALI, IIP  BY 

ABORT  ALOC 

BOUNDARY 
ENDTAPE 
FI  LEI  INK 
FINDIT 
FOOTliST 
GBTDATA 
GB7GR0UP 
GETLOC 
GOPRINT 
GRPSORT 
I  GUT 
INDMOU 
INERRDK 
1  Nil  RUT P 
1 NLABPL 
MISASGN 
NliWPATA 
NOD IRC 
PREPALOC 
PRNTNOIV 
PROCSIMP 
QUIMIASP, 
RliADDIU 
READ  IN 
SPTDATA 
SHTRP.AD 
SIMULATE 
SORTOPT 
ZAUORT 

C1.0SPIL 
ENDTAPE 
OllTERTP 
SETIIEAI) 
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ANOTHER 


utility  rout  run 


CALLED  BY 


ATN2PI 

CHANGE 

DHLLONG 

DIFFLONG 

DISTF 


HNDDATA 

i-razi: 


TNTERPCC 

DBMOD 

INDEXER 


CORRPARM 

GETDATA 


FINDZONE 

LAUNCH 

MYZONE 

TARDEFS 

ADJUST 

CORRPARM 

DTFF 

D I  ST  I  Ml  ; 

FLYPOINT 

CFNRAID 

GETDATA 

in  rroPT 

INPOTGT 

1‘NTERPGC 

LNCIIDATA 

MISASGN 

NEWCOOR 

NOCORR 

PI.ANTANK 

ROIJT I NG 

SNAPOUT 

TARDESS 

TGTPREP 

TIMOLNCII 

WEAPPREP 


ENDTAPli 
INPITEM 
MAKE HAS 
MAKE  IT 
READSUM 

OUTERTP 

SETWR1TE 

TERMTAP 

WRARRAY 


UTILITY  ROUTINE 


CALLED  BY 


GETCLOCK 

GETDATE 


GKTLIMIT 

GETVALU 

IGET 


INITEDTT 


TIMEME 

FILEHNR 

IN1TAPE 

INP ITEM 

QUIKBASE 

RELOADF 

OUTFILE 


STORAGE 

PREPALOC 

RDALCRD 

RDCARDF 

RPPRCMP 

SETFILE 


BDAMAGE 

BDAMX 

BLAUN 

CLAUN 

colocate: 

F  LTROUTE 

I  PCI, 

LATTR it 

MLAUN 

N  A  VC  A  I. 

NEXTFLT 

PRERAII) 

RECOVERY 

STATSUM 

ST  R  KOI  JT 

TDEFSTT 

TERMBMD 

TKYLAUN 

WRPRNT 

WRRDSTRK 


BASESUM 
I NDMOH 
PRNTBASE 
TABCiHN 

table: 


UTILITY  ROUT  INI:  CALLUP  BY 

ITLE  (cont.)  SETUP 

.TABLE 
TGTMODIF 
TGTPREP 


I  WANT 

$ETVALU 

KEYMAKE 

ALOCOUT 
3DAMX 
'  INDEXER 
MOREDATA 
PRERAID 
SIMULATE 

LOCF 

BLAUN 
,  LOCREAD 
RDARRAY 
TERMBMD 
WRARRAY 

NEWUNIT 

OUTERTP 

NEXTFILE 

FILE DUMP 

NEXTITEM 

TABGEN 

NUMGET 

BUFFIT 

CARDCK 

DBMOD 

DECLARES 

DEFALOC 

FILEDUMP 

FIXWEAP 

FLAGRST 

GF.TDATA 

GETVALU 

INDMOD 

INPRTCL 

LNCIIPATA 

1 

LOCREST 
MIRV RE ST 
MULCON 

NEWbASi: 

NEWDATA 

NEWDIR 

RPALCRD 
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UTILITY  ROUTINE 


NUMGET 


ORDER 


OUT  ITEM 

OUTIVORUS 

PAGliSKP 


CALLED  BY 


(cont . )  RDCARDF 

RDPRCMP 
RNGIIMOD 
SBTFILE 
SET  ID 
SETUP 
TABLINPT 
VALUMOD 

ALOCOIJT 

BOOST  IN 

CALCOMP 

COLOCATE 

DECOYADD 

OVAL 

EVAL2 

FINDZONE 

FOOTPRNT 

GEN RAID 

INITOPT 

NEWCOOR 

OPTBOOST 

PACK 

PLANTANK 

PROCCOMP 

ROUTINE 

SORTMIS 

STRKOUT 

TGTSORT 

DBMOL) 

ENDTAPI! 

INDEXER 

INDMOI) 

1 NP ITEM 


BASE SUM 

DBMOD 

ENDGAME 

EVA  1.2 

FASTDATA 

INDMOI) 

NEIVDATA 

PAGESKP 


UTILITY  ROUTINE- 


CALLED  BY 


SKIP 


SKIPFILE 


SSKPC 


STORAGE 


TIMEDAY 


TIMEME 


ALOC 

FOOTPRNT 

GETDATA 

GOTGROUP 

SETDATA 


ENDGAME 

INDEXER 

INDMOD 

MOREDATA 

NEXTAPE 

OUTERTP 

Z ABORT 

EVALPLAN 

MOVE 

VMARG 

ALOC 

FOOTPRNT 

INDMOD 

PREPALOC 

F1LEUNR 

INITAPE 

RELOADF 

ALOC 

ALOCOUT 

ENDTAPE 

FLTROUTE 

GETDATA 

Ml  J  ICON 

OPTRA! D 

PLANTMIS 

PR I NT IT 

PRNTALL 

PRNTNOW 

PROCCOMP 

READSUM 

RECON 

SNAP IT 

SNAPOUT 

STRKOUT 

TGTASSN 

ITMEPRT 

iVRRDSTRK 


•I  (ip 


UTILITY  ROUTINE 


CALLED  BY 


WRITEDIR 


INITEDIT 
MAKE BAS 
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APPENDIX  B 

QUICK  ATTRIBUTE  NAMES  AND  DESCRIPTIONS 


ATTRIBUTE 

NAME 

ABRATE 

ADBLI 

ADBLR 

ADEFCMP 

ADEFZON 

AGX 

AGY 


DESCRIPTION 

Probability  of  aircraft  in-flight  abort  per  hour 
of  flying  time 

ALERTDBL  probability  for  initiative  attack 

ALERTD8L  probability  for  a  retaliatory  attack 

Area  ballistic  missile  defense  (BMD)  component 
index  (radar  or  missile  launch  site) 

Area  ballistic  missile  defense  (BMD)  zone  number 

Offset  X-coordinate  of  AGZ  (fiftieths  of  nautical 
miles) 

Offset  tf-coordinate  of  AGZ  (fiftieths  of  nautical 
miles) 


AHOB 

ALERTDBL 

ALERTDLY 

AREA 


Actual  height  of  burst  of  weapon  (air  or  ground) 

Probability  of  destruction  before  launch  (DBL) 
of  alert  delivery  vehicle  (missile  or  bomber) 

Delay  of  alert  vehicle  before  commencing  launch 
(hours ) 

Area  of  a  bomber  defense  ZONE  (millions  of 
nauti  cal  miles2) 


ASMTYPE 

ATTRCORR 

ATTRLEC. 

ATTRSUPF 


Air-to-surface  missile  type 

Attrition  parameter  for  a  bomber  corridor  (probab¬ 
ility  of  attrition  per  nautical  mile) 

Attrition  parameter  for  each  route  leg  in  bomber 
sortie  (probability  of  attrition  per  nautical  mile) 

Amount  of  original  attrition  that,  remains  after 
defense  suppression 
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ATTRIBUTE 

_  NAME 

AZ0N1 

AZON2 

AZON3 

BCODE 

BENO 

BLEGNO 

CATCODE 

CEP 

CLASS 

CLASST 

CNTRYLOC 

CNTRYOWN 

CNTYLOCT 

CNTYOWNT 

CODE 

CPACTY 


DESCRIPTION 

First  area  defense  zone  covered  by  a  BMD  long-range 
radar 

i 

Second  area  defense  zone  covered  by  a  BMD  long- 
range  radar 

Third  area  defense  zone  covered  by  a  BMD  long-range 
radar 

Code  indicating  the  outcome  of  a  simulated  bomber 
event 

Bombing  encyclopedia  number 

Index  to  boundary  line  segment 

Category  Code  as  reflected  in  Joint  Resource 
Assessment  Data  Base  (JAD) 


Circular  error  probable  (CEP),  delivery  error 
applicable  to  bomber  and  missile  weapons  (nautical 
miles) 

Class  name  assigned  identify  sets  of  TYPES  in  data 
base 

Target  CLASS 

Country  code  for  country  where  item  is  located 

Country  code  for  country  which  owns  the  item 

Target  country  code  for  country  where  the  target 
is  located 

Target  country  code  for  country  which  owns  the 
target 

Outcome  code  for  a  general  event  used  in  simulation 

Capacity  of  a  bomber  recovery  base  (number  of 
vehicles) 


448 


CH-  2 


DISTRIBUTION 

Addressee  Copies 

NMCSSC  Codes 

B121 .  3 

B122  (stock) .  6 

B200  .  1 

B210 .  2 

B220  .  29 

B600  .  I 

DCA  Codes 

920  I 

950  1 

System  Engineering  Facility)  ATTN:  T221 

Reston,  Virginia  22070  1 

OJCS 

Studies,  Analysis  arid  Gaming  Agency,  ATTN:  SFD, 

Room  1D957,  Pentagon,  Washington,  D.C.  20301  .  .  .  5 

Commander-in-Chief,  North  American  Air  Defense  Command 

ATTN:  NPPG,  Ent  Air  Force  Base,  Colorado  80912  .  2 

Commander,  U.S.  Air  Force  Weapon  Laboratory  (AFSC) 

ATTN:  AWL,  Kirtland  Air  Force  Base,  New  Mexico  87117  ...  2 

Director,  Strategic  Target  Planning 

Offutt  Air  Force  Base,  Nebraska  68113  ...  .  2 

Chief  of  Naval  Operations,  ATTN:  0P963G 

Room  5E531,  Pentagon,  Washington,  D.C.  20350  .  .  2 

Defense  Documentation  Center,  Cameron  Station, 

Alexandria,  Virginia  22314  12, 

70 


471  CH-2 


_  -  M  . 

DOCUMENT  CONTROL  DATA  -RID 

fftcuW  ty  c  hatlflrtiiatt  »t  tltlt,  hn*y  at  »k  it  rat  I  and  ir\4ti>n$  annatatlm  mutt  bo  mfr»a  *han  lA*  aaatati  r*p*H  It  rt»**i1h*4) 
rivitv  (Carpavta  au*a*)  '  !!#.  ««*OHY  1BCUKITV  CLAliiriCMTION 

itary  Command  Syatem  Support  Canter  (NMCSSI ) 

unicatlons  Agency  (DCA)  ,t  - - -  —  —— 


The  NMCSSC  Quick-Reacting  General  War  Gaming  System  (QUICK) 
Programming  Specif lest Iona  Manual,  Volume  I,  Data  Input  Subsystem 


rkl  (Tyy*  at  tapmt  and  1 nefui/t-e  daft) 


*  AUTHOR)!)  (Flu I  mm)  rnfdma  Mittal,  lantnama) 

NMCSSC :  Yvonne  Mapily 
Donald  t.  Webb 


29  February  1972 

M.  CON1MCT  SR  SSANT  NO. 

DCA  100-70-C-0065 
».  pkojict  no.  NMCSSC  Project  631 


o.  oiaTMauYiON  *tatcm(nt 


Lambda  Corp:  Betty  J,  Ellic 
Jack  A,  Sanseen 


Ira,  total  NO.  Of  axil 
486 


?».  no.  or  aara 
4 


aj.^ia^^iNATOwa  aaaoaT  Nuwoaaiai 

COMPUTER  SYSTEM  MANUAL  CSM  P3M  9A-67 


fas.  OTHIN  aaroNT  NOiat  (Any  a*ia>  mmktn  #tal  tmf  M  raaforaa 
Vila  far* H) 


Thla  document  la  approved  for  public  release;  Its  distribution  la  unlimited. 

lWiV»LtMtNTANr  NOTH  f  l>.  aeONtO^INS  MINI  T ANY  AC TI  VI TV  ' 

National  Military  Command  System  Support 
Center/Defenae  Communications  Agency 
The  Pentagon,  Washington,  DC  20301 

It.  AIITRACT  '  -  i  -  *-  -  -  -  ” 

This  is  one  of  three  volumes  describing  the  computer  programming  specifications  for 
the  Quick-Reacting  General  War  Gaming  System  (QUICK).  This  volume  addresses  computer 
programs  of  the  QUICK  Data  Input  Subsystem.  It  is  intended  to  serve  as  the  basis  for 
program  maintenance  activities.  Accordingly,  it  describes  the  program  functions  and 
contains  flow  charts  for  each  program  and  subprogram  of  the  Data  Input  Subsystem. 

Based  upon  suitable  data  base  and  user  control  parameters,  QUICK  will  generate 
Individual  bomber  and  missile  plans  suitable  for  war  gaming,  and  simulate  the  planned 
events.  The  generated  plans  are  of  a  form  suitable  for  independent  review  and 
revision.  Subsequently,  the  planned  events  are  simulated;  various  stotistlcal  sum- 
marles  are  produced  to  reflect  the  results  of  the  war  game.  A  variety  of  force 
postures  and  strategies  can  be  accommodated. 

QUICK  is  documented  extensively  in  a  set  of  Computer  System  Manuals  (series  9-67) 
published  by  the  National  Military  Command  System  Support  Center  (NMCSSC) ,  Defense 
Communications  Agency  (DCA),  The  Pentagon,  Washington,  DC  20301, 


473 


*«PlAC««  M  rOAM  tOt.  1  JAM  M,  WHICH  I A 

otiOLiYi  worn  a  mar  ut«. 


r;... 


•curify  CUtffiflcaUon 


* 


DEFENSE  COMMUNICATIONS  AGENCY 

NATIONAL  MILITARY  COMMAND  SYSTEM 
SUPPORT  CENTER 
WASHINGTON,  D.  C  20301 


\ 

Oo 

W 

(\ 


REFER  TO 

B221 

rc 

TO: 

(N 

SUBJECT: 

§ 


1  September  1972 


DISTRIBUTION 

Change  1  to  Covputer  System  Manual  CSM  PSM  9A-67,  Volume  I, 
Part  A,  The  NJCSSC  Quick-Reacting  General  War  Gaming  System 
(QUICK) ,  Data  Input  Subsystem,  Programming  Specifications 
Manual,  29  February  1972. 


1.  Insert  the  enclosed  change  pages  and  destroy  the  'replaced  pages 
according  to  applicable  security  regulations. 

2.  A  list  of  Effective  Pages  to  verify  the  accuracy  of  this  manual  is 
enclosed^  This  list  should  be  inserted  before  the  title  page. 

3.  When  this  change  has  been  posted,  make  an  >ntry  In  the  Record  of 
Changes  on  the  Inside  cover. 


FOR  THE  COMMANDER: 


21  Enclosures 
Change  1  pages 


J. 

Chief,  Military/ Personnel 
AdminWertft ive .  Services 
Office 


DISTRIBUTION 

NMC8SC  Codes 

B121  3 

B122  (stock)  6 


B200 

B210 

B220 

MOO 

DCA  Codes 

920 

950 


1 

2 

19 

l 


Reproduced  by 

NATIONAL  TECHNICAL 
INFORMATION  SERVICE 

U  S  DppcjrlniPnl  of  Commerce 
S|jf  intjfinld  Ya 


. :  r.  v  1  I  I  A 


Approved  iot  public  rtlecsei 

Distribution  Unlimited 


D  n 

!  ' (If'jj  \ 


J 


u  u 


DEC  13  ur 

EEJiLiJ  u  l 

B  *■ 


EFFECTIVE  PAGES  -  17  July  72 


NMCSSC  Letter,  B231,  Change  1  to  Computer  System  Manual  CSM  P3M  9A-67, 
Volume  1,  Part  A,  Hie  NMCSSC  Quick-Reacting  General  War  Qaalug  System 
(QUICK),  Data  l'nput  Subsystem,  !'  igrammlng  .Specifications  Manual, 

29  Feb  72. 


OJCS 

Studies,  Analysis  and  Oam lug  Agency,  ATTN:  SFD, 

Room  ID9S7,  Pentagon,  Washington,  D.C.  20301  5 

Commander  In  Chi of,  North  American  Air  Defense  Command, 

ATTN:  NPPG,  Ent  Air  Force  Base,  Colorado  80912  2 

Commander,  U.S.  Air  Force  Weapon  Laboratory  (AFSC) , 

ATTN:  AWL,  Klrtland  Air  Force  Base,  New  Mexico  87117  2 

Director,  Strategic  Target  Planning, 

Offutt  Air  Force  Bmae,  Nebraeka  68113  2 

Ckief  of  Navel  Operation!,  ATTN:  OP9630, 

Boom  31531,  Pentagon,  Washington,  D.C.  20350  2 

Defense  Documentation  Center,  Csmeron  Station, 

Alexandria,  Virginia  22314  12 


59 


SUBROUTINE  ENDTAPH 


PURPOSE: 

HNTP.Y  POINTS: 
FORMAL  PARAMKTr.lt.'.; : 
COMMON  BLOCKS: 
SUBRpI rriNL.S  (.AEI.E  H : 
CALLED  BY: 


To  complete  the  read i nj;  of  the  current  spill 
tape . 

LNDTAPL 

None 

D I CI'ARY,  F.RRNUM,  LOCATOR,  MACHINE,  SUBRVIS 
INERR'iT,  \NUTJ  1I:I< ,  NEWIJNIT 
R  BIX  ADI' 


Method 


Subroutine  ENDTAPI’  checks  the  status  of  the  last  tape  read  operation 
for  the  current  tape.  If  the  operation  terminated  with  an  end- of  file 
or  parity  error,  it  ;alls  INERRTP  to  attempt  t.c  reread  the  record. 

When  the  tape  has  been  successfully  read,  ENDTAPI;  calls  ANOTHER  or 
NEWUNIT  to  release  it  and  then  checks  to  see  if  the  tape  unit  will  be 
needed  for  another  spill  tape.  If  so,  ENDTAPI:  instructs  the  computer 
operator  to  mount  the  next  spill  tape  on  the  tape  unit. 

The  subroutine  returns  after  printing  out  error  counts  which  indicate 
the  number  of  tape  read  errors  encountered  on  the  last  tape  and  on  all 
the  tapes  read  so  far. 

Subroutine  ENUTAPE  is  illustrated  in  figure 


CH~1 
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.SUBROUT INI:  GETLOC 


PURPOSE: 


To  read  the  major  directory  to  the  spill  tapes 
(common  /LOCATOR/)  from  the  first  spill  tape. 


ENTRY  POINTS :  GET LOG 


FORMAL,  PARAMETERS :  None 


COMMON  BLOCKS: 


DIO  162 ,  ERRMESS,  LOCATOR,  MACHINE  ,  SUPRVIS, 
TAPHARD 


SUBROUTINES  CALLED:  NOD  IRC ,  ABORT 

CALLED  BY:  RELOAD!' 


Method 

Subroutine  GETLOC  first  attempts  to  buffer  in  the  major  directory  -- 
common  /LOCATOR/  --  from  the  first  spill  tape.  If  an  end-of-file  or 
parity  error  is  encountered  during  the  buffer  operation,  the  tape  is 
rewound  and  the  buffer  attempt,  is  repeated.  If  this  buffer  process 
is  repeated  MTIMESR,  common  /SUPRVIS/,  times  without  success,  GETLOC 
determines  how  many  words  have  been  read  successfully  from  the  tape 
and  places  them  (the  words)  into  the  master  directory  (common  /DRCS162/) 
so  that  it  can  then  use  NODIRC  to  print  out  error  information  and 
abort,  the  run. 

If,  on  the  other  hand,  the  buffer  operation  is  successful,  GETLOC 
checks  t.he  value  of  MAXFILE  (which  is  the  maximum  number  of  disk  files 
contained  on  the  spill  tapes)  against  the  value  of  MAXFILE  set  earlier 
in  RELOADF  If  they  are  not  equal,  then  either  RELOADF  has  not  been 
updated  to  correspond  to  program  OUTFILH,  or  the  value  read  from  the 
tape  is  in  error  for  some  other  reason.  In  either  case,  the  discrepancy 
is  encoded  into  an  error  message  and  ABORT  is  called  to  abort  the  run. 
The  computer  operator  is  also  informed  of  the  discrepancy. 

■'n  tlu:  normal  case  where  the  major  directory  is  read  successfully  and 
MAXFILE  does  not  have  an  unexpected  value,  GET IOC  writes  the  major 
directory  on  the  standard  output  file  and  processing  control  Is  returned 
to  RELOADF. 

Subroutine  GETLOC  is  illustrated  in  figure  21. 
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BLOCK 

OPTIONS 

SETIDD 


jSIDECC 
I XYZ 


Table  6  .  (cent.) 

(Sheec  S  of  5) 


VARIABLE 

OR  ARRAY  DESCRIPTION 

(cone , ) 

ISETSIZ  Largest  allowable  line  number  in  a  set  made 

by  default  option  of  SET ID 


ID 

INDEX 


JNDEX 


I  AUTO 

IXSD 


Array  where  set  number  to  be  printed  is 
stored 

9999  if  all  sets  are  to  be  printed;  0  if 
none  are  to  be  printed;  count  of  number  of 
sets  to  be  printed  if  list  read  in 

0  if  no  sets  to  be  printed;  equal  to  INDEX 
if  list  read  in;  equal  to  number  of  sets 
updated  if  IAUT0=1 

1  if  updated  sets  are  to  be  printed;  0  if 
not 

Position  of  SIDE  attribute  in  ATTNAME  array 


XMIN  Value  of  attribute  MINKILL  for  current  item 

XMAX  Value  of  attribute  MAXKILL  for  current  item 
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SUBROUTINE  FASTSET 


PURPOSE :  FASTSET  is  the  main  control  and  monitoring 

routine  for  an  update  run. 

ENTRY  POINTS:  FASTSET 

FORMAL  PARAMETERS:  None 

COMMON  BLOCKS:  ERRORM,  ITP,  MYIDENT,  MYTAPES,  NOERRORS,  NOPRINT, 

OPTIONS,  ICKTST,  SETIDD,  TWORD 

SUBROUTINES  CALLED:  CARDCK,  COPYDB,  FILEHNR,  INITFAST,  INPRTCL, 

MAKEIT,  NEWDATA,  PAGESKP,  PRTCONT 

CALLED  BY:  QUIKBASE 


Method 

Subroutine  FASTSET  calls  INITFAST  to  initialize  all  arrays.  It  assigns 
file  names  and  initializes  the  filehandler  and  all  pertinent  tapes  to 
read  and  write.  If  manual  prirtt  control  was  requested  on  the  option  card, 
subroutine  INPRTCL  is  called,  Subroutine  CARDCK  is  called  to  read  in  and 
check  all  the  update  data.  If  that  subroutine  has  found  errors  in  the 
input  deck,  FASTSET  prints  the  error  messages  and  aborts  the  run.  If  the 
update  data  have  no  discernible  errors,  subroutine  MAKEIT  is  called  to 
perform  the  major  functions  of  the  program.  Control  is  returned  to 
FASTSET  which  again  looks  for  and  prints,  if  present,  any  error  messages. 
The  subroutine  to  print  the  target-region  summary  (PRTCONT)  is  called 
and,  if  requested,  a  second  copy  of  the  updated  data  base  is  created  by 
subroutine  COPYDB.  Subroutine  FASTSET  is  illustrated  in  figure  83. 
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SUBROUTINE  INITFAST 


PURPOSE:  To  set  constants  and  clear  arrays  for  subroutines 

’  '  associated  with  QUIKBASE. 

ENTRY  POINTS:  INITFAST 

FORMAL  PARAMETERS:  None 

COMMON  BLOCKS:  DIRECTRY,  ERRORM,  IENDSET,  IWSIDE,  KKSET, 

MPRTOPT,  MYGOODS ,  MYPRINT,  MYTAPES,  NEWSET, 

NODES IGS,  PRTOPT 

SUBROUTINES  CALLED;  None 

CALLED  BY :  FASTSET 


Method 

INITFAST  does  no  computation.  Either  through  data  statements  or 
executable  statements,  it  presets  constants  and  arrays  to  their 
appropriate  values.  Subroutine  INITFAST  is  illustrated  in  figure  85. 
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c.  85.  Subroutine  INITFAST 


SUBROUTINE  MAKEBAS 


PURPOSE :  To  call  the  subroutines  required  to  prepare  a 

ganc  data  base  tape  QUIKDB  from  an  input  data 
library  tape  DATADB  when  updating  of  the  DATADB 
file  is  not  required. 

ENTRY  POINTS:  MAKEBAS 


FORMAL  PARAMETERS :  None 


COMMON  BLOCKS:  ERRORM,  HIST,  ITP,  LOGFLAG,  MYIDENT,  MYTAPES, 

OPTIONS,  TWORD 

SUBROUTINES  CALLED:  ENDDATA,  FILEHNR,  INITFAST,  NEWBASE,  NEWDATA, 

NEWDIR,  PRNTBASE ,  PRNTDATA,  WRITEDIR 


CALLED  BY:  QUI XBASE 


Method 

Subroutine  MAKEBAS  is  a  driver  routine  which  controls  the  sequencing  of 
operations  required  to  create  the  QUIKDB  tape  when  the  QUIKDBG  option 
is  exercised.  As  indicated  in  figure  60,  MAKEBAS  calls  the  filehandler 
(FILEHNR)  to  initialize  the  read,  write,  and  scratch  files.  Then, 
MAKEBAS  calls,  in  order,  the  other  subroutines  required  to  write  the 
QUIKDB  tape.  In  effect,  MAKEBAS  is  essentially  the  same  as  a  null 
UPDATE  run. 
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SUBROUTINE  MAKEIT 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 

COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY': 


A  driver  to  call  the  subroutines  necessary  to 
make  a  new  data  base. 

MAKEIT 

NT1  -  The  tape  where  the  QUIKDB  tape  will  br 
written 

MY  I DENT 

ENDDATA,  NEWBASE,  NEWDIR,  WRITEDIR 

FASTSET 


Method 

» 

MAKEIT  calls  the  data  base  generation  subroutines,  NEIVDIR,  WRITEDIR, 
NEWBASE,  and  ENDDATA,  which  create  the  game  base  file,  QUIKDB.  Its 
only  computation  function  is  to  look  up  and  store  for  later  use  the 
index  number  of  the  attribute  DESIG  in  the  data  base  directory  (array 
ATTNAME) .  Subroutine  MAKEIT  is  illustrated  in  figure  89. 
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JDATA ' 
to  Terminate 
—Data  Base 


RETURN J 


Pig-  89.  Subroutine  MAKEIT 
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SUBROUTINE  MOVE IT 


To  move  update  data  to  output  buffer;  add 
the?  desired  data  or  update  identification; 
and  to  add  current  set  and  line  number  t.o 
output  record. 

MOVEIT 


IHOWTO  -  Switch  to  indicate  whether  input  buffer 
is  to  be  moved 

ERRORM,  MYOUT,  MYINPUT,  MY GOODS 
FILEHNR 


NENDATA 


Method 

Subroutine  MOVEIT  increases  the  current  line  number  within  the  set  by 
one.  It  examines  the  input  parameter  IHOIVTO  to  determine  which  of  two 
functions  it  is  to  perform.  If  the  argument  is  equal  to  a  one,  MOVEIT 
transfers  a  data  record  from  common  block  /MYINPUT/  to  block  /MYOUT/. 
It  next  sets  the  tenth  word  of  the  block  to  the  update  identification. 
The  set  and  line  number  are  encoded  as  two  four-digit  numbers  into  the 
ninth  word.  If  the  input  argument  was  a  two,  only  the  last  function 
is  performed  by  MOVEIT;  i.e.,  the  set  and  line  number  are  encoded  into 
the  data  record.  Subroutine  MOVEIT  is  illustrated  in  figure  90. 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 

COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 
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90.  Subroutine  MOVE  IT 


SUBROUTINE  NEWBASE 


PURPOSE : 


ENTRY  POINTS: 


To  prepare  or  augment  the  item  portion  of  a  data 
base  tape. 

NEWBASE 


FORMAL  PARAMETERS :  NT1  -  the  logical  tape  number  where  the  base  is 

to  be  written 


COMMON  BLOCKS:  DIRECTRY,  ERRORM,  ICONTROL,  IENDSET,  1TP, 

JDESTEST,  KKSET,  MYGOODS,  MYOUT,  NOTEST, 
PRTOPT ,  SIDECC,  TWORD,  XY2 

SUBROUTINES  CALLED:  COUNTDS,  ITLE,  NEWDATA,  NUMGET,  WRARRAY*, 

WRWORD* 


CALLED  BY:  MAKEIT 


Method 

Subroutine  NEWBASE  employs  subroutine  NEWDATA  to  read  the  item  portion 
of  the  data  base,  check  for  errors,  and  write  each  item  on  the  specified 
output  tape,  NT1. 

Four  commands  are  recognized:  DEFINE,  UNDEFINE,  ITEM,  and  ENDINPUT.  In 
the  case  cf  DEFINE  the  succeeding  fields  on  the  card  beginning  in 
columns  11,  21,  31,  etc.  contain  attribute-value  pairs  which  are  to  be 
made  into  global  definitions  in  which  the  first  field  of  the  pair  is  the 
BCD  name  of  the  attribute,  left-justified,  followed  by  the  value  in  the 
second  field.-  The  sequence  of  attribute-value  pairs  occurring  on  a  card 
is  terminated  by  a  blank  field. 

The  ITEM  card  is  as  described  above  except  that  the  definition  is  local 
and  the  entire  sequence  of  cards  is  terminated  only  upon  detection  of 
another  command  in  the  first  field  of  a  card. 

The  UNDEFINE  card  removes  global  definitions  with  the  names  of  the 
attributes  to  be  undefined  occurring  in  succeeding  fields  on  the  card, 
terminated  by  a  blank. 

The  '.deck  of  input  cards  is  terminated  by  ENDINPUT  which  also  causes 
NEWBASE  to  return  to  the  calling  program. 

*  See  subroutine  FI LEUNR. 
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All  cards  read  by  the  routine  are  checked  for  consistency  unless 
checking  has  been  turned  off  by  an  update  PRNTCL  option  card  (see 
subroutine  INPRTCL).  That  is.  *■*".  attribute  specified  is  checked 
to  determine  that  it  is  in  f?  '  .fined  in  the  data  base  directory 
and  that  the  value  associatcu  ■  •  .sfies  any  range  or  list  check 
specifications  for  that  attribute.  Appropriate  error  messages  are 
emitted  when  such  inconsistencies  are  detected.  The  flowchart 
(figure  PI)  consists  of  four  parts.  Part  I  shows  the  processing 
sequence  used  in  NEWBASE.  Parts  II,  III,  and  IV  show  the  operations  of 
three  local  subroutines  used  by  NEWBASE  ?o  perform  t.hc  data  checks 
and,  if  required,  to  write  error  messages.  Part  II  shows  the  local 
subroutines  used  to  signal  undefined  attributes  (see  statement  110) 
and  to  signal  an  error  in  the  assigned  attribute  value  (see  statement 
120).  Part  III  shows  the  procedures  used  to  convert  and  check  the 
attribute-value  pair.  Part  IV  shows  the  local  subroutine  check  on  the 
MINKILL  and  MAXKILL  values  for  the  item. 
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Fig.  91.  (cont.) 

Part  I:  (cont.) 
(Sheet  3  of  3) 
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Fig,  91.  (cont.) 

Part  III:  Local  Subroutine  for 

Attribute/ Value  Checking 
(Sheet  1  of  ?.') 
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Local  Subroutine  to  Cheek 
Values  of  MINKILL  orwl  MAXKILL 


Fig.  91.  (cont.) 

Fart  IV:  Local  Subroutine  for 
MINKILL  and  MAXKILL 
Value  Checking 


SUBROUTINE  NEWDIR 


PURPOSE ; 

ENTRY  POINTS: 

FORMAT  PARAMETERS : 
COMMON  BLOCKS: 

SUBROUTINES  CALLED: 
CALLED  BY: 


To  create  a  new  data  base  directory. 

NEWDt R 
None 

DIRECTRY ,  ERRORM,  IIP,  JDESTEST,  MPRTOPT,  MYOIIT, 
SIDECC,  TWORD,  XYZ 

ITLE,  NUMGET  >  NEH'DATA  (Entry  NEWCARDS) 

MAKE IT 


Method 

This  subroutine  employs  subroutine  NEWDATA  (entry  NEWCARDS)  to  read  a  new 
directory  or  modify  an  existing  directory.  The  card  format  is  eight  fields 
of  10  columns  each  with  all  quantities  left-justified.  Two  commands  in  the 
first  field  are  recognized:  ADD  and  ENDIRECT.  The  ENDIRECT  card  serves  to 
terminate  the  subroutine  and  causes  a  return  to  the  calling  program. 

The  ADD  command  is  used  to  add  a  new  attribute  to  the  directory,  or,  in 
conjunction  with  a  prior  delete  command,  o  change  an  already  existing 
attribute  in  the  directory. 

With  the  ADD  command  there  are,  in  addition  to  the  first  field,  six 
further  fields  of  data  on  the  input  card: 

1.  The  name  of  the  attribute  .  BCD. 

2.  The  input/output  conversion  format  (FORTRAN)  associated  with 
the  values  for  that  attribute. 

3.  Code  number  specifying  the  type  of  checking  to  be  conducted  for 
a  particular  attribute  (see  below) ■ 

4.  The  default  value  of  the  attribute,  in  the  appropriate  input/ 
output  format  for  that  attribute  as  specified  by  item  2,  This 
is  the  value  that  will  be  associated  with  the  attribute  when 
it  is  in  an  undefined  state. 
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5.  Checking  specifications.  This  field  may  contain  the  word  I.1ST, 
which  specifies  list  checking  with  the  list  of  allowable 
attribute  values  to  follow  on  subsequent  cards;  the  word  NOCHFCK, 
whidi  specifies  no  checking  of  the  attribute  values;  or  the 
lower  value  of  the  allowable  range  of  values  for  this  attribute 
in  the  case  of  range  checking. 

6.  This  field  is  unused  in  the  event  of  list  checking,  or  no 
checking,  and  contains  the  upper  value  for  the  range  of 
allowable  values  of  the  attribute  in  the  case  of  range  checking. 

If  list  checking  is  specified  on  the  ADD  card,  this  card  is  followed  by 
any  number  of  cards  containing  the  list  of  allowable  values  for  that 
attribute,  eight  per  card,  in  the  format  specif i od  for  the  particular 
attribute.  The  fields  for  these  values  are  the  first  eight  columns  of 
each  10-column  field.  The  series  of  allowable  values  in  these  cards  is 
terminated  by  the  first  blank  field.  A  blank  field  can  be  specified  as 
an  allowable  attribute  value  by  including  the  value  BLANK  in  the  list. 

Appropriate  error  messages  are  written  on  an  error  message  tape  to 
point  out  inconsistent  operations  such  as  attempting  to  issue  a  command 
other  than  ENDIRECT  or  ADD,  or  attempting  to  add  attributes  which  already 
exist  in  the  directory.  The  error-checking  codes  permissible  for  the 
third  extra  field  are: 

CODE  TYPE  OF  DATA  TO  BE  INPUT 


1  Floating  point  numeric 

2  Floating  point  numeric 

3  Fixed  point  numeric 

4  Fixed  point  numeric 

5  Alphameric 

6  Alphameric 

7  Special  conversion  for 
latitude,  longitude 


CHECKING  SPECIFIED 
Range  (Min-Max) 
List 

Range  (Min-Max) 

List 

List 

No  checking 
Range 


Subroutine  NEWDIR  is  illustrated  in  figure  93. 
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Fig.  100.  Subroutine  COUNTDES 


SUBROUTINE  DBMOD 


PURPOSE : 


ENTRY  POINTS: 


To  control  the  information  processing  when  pro¬ 
gram  BASEMOD  is  run  post -QUIKBASE . 

DBMOD 


FORMAL  PARAMETERS: 
COMMON  BLOCKS: 

SUBROUTINES  CALLED: 

CALLED  BY: 


None 

CITTIGIW,  EDITAPE ,  EDITERM,  1DESIGS,  ITP,  LDESIGS, 
LODESICS,  MYIDENT,  MYSIDE,  NODES ICS,  NOPRINT, 
NRTYPES,  PRINTS,  PROCESS 

ADDVAI.,  COUNTDES,  INITAPE*,  INITEDIT,  INPITEM, 

MY ZONE,  nextitem;  NUMDEL,  numget,  OUTITEM, 
PAGESKP,  PRINTIT,  PRNTVAL,  RDTYPES,  STKRIN, 
TARDEFS 

BASEMOD 


Method 


Subroutine  DBMOD  effects  a  sequential  examination  of  each  item  in  the 
game  data  base  (contained  on  the  QU1KDB  tape).  Each  item  is  read  in, 
filtered  through  a  series  of  tests,  and  assigned  appropriate  values  for 
certain  of  its  attributes,  '  The  item  is  then  cither  retained  or  deleted 
from  the  game  data  base.  The  12  tasks  accomplished  by  this  processing 
are: 

1.  Targets  which  are  inappropriate  for  the  plan  under  consideration, 
i.e. ,  those  targets  assigned  the  attribute  RESERVED,  are 
excluded  from  further  consideration. 

The  appropriate  number  of  bombers  or  tankers  for  each  bomber  or 
tanker  squadron  (NGPERSQN)  is  selected,  depending  upon  the  par¬ 
ticular  plan  being  developed  (Initiative,  Surprise,  or 
Retaliatory) . 


*  See  subroutine  FILE11NR. 
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3.  The  number  of  bombers  or  tankers  in  commission  (NOINCOM)  for 
each  bomber  or  tanker  squadron  is  calculated  by  specifying  that 
NOINCOM  is  equal  to  a  user-specified  fraction  of  NOALERT  which 
is  a  fraction  of  NOPERSQN. 

4.  The  number  of  bombers  or  tankers  which  are  on  alert  (NOALERT) 
for  each  squadron  is  calculated  by  specifying  that  NOALERT  is 
equal  to  a  user-specified  fraction  of  NOINCOM. 

5.  The  appropriate  value  of  the  attributes  TYPE,  VAL,  and  EFECTNES 
is  established  for  each  fighter  interceptor  unit  based  on  the 
user-input  parameter  POSTURE.  If  POSTURE* 1 ,  these  attributes 
are  assigned  the  values  of  the  attributes  TYPE1 ,  VAL1,  and 
EFECNES1,  respectively.  If  POSTURE*2,  the  values  of  the 
attributes  TYPE  2,  VAL2,  and  EFECNES2  are  assigned. 

6.  The  relative,  value  (VAL)  of  urban/industrial  targets  is  calcu¬ 
lated  as  a  function  of  either  general  industrial  worth  (IGIW) 
or  population  (POP) , 

7.  If  the  TARDEF  option  is  exercised,  each  target  (opposing  side) 
is  processed  and  the  level  of  local  bomber  defense  available  at 
the  target  is  calculated. 

8.  If  the  ZONE  option  is  exercised,  items  in  ICLASS  4  and  S  (defen¬ 
sive  command  and  control  sites  and  interceptor  bases,  respec¬ 
tively)  are  processed  to  determine  the  air  defense  zone  in 
which  the  item  is  located. 

9.  The  value  of  the  attribute  IREG  is  determineu  based  on  the 
target  designator  code  DESIG  assigned  to  the  item. 

10.  Each  Blue  (SIDE=BLUE)  installation  is  assigned  a  value  for  the 
attribute  FLAG.  The  assigned  value  (numeric  code  1  through 

8  established  based  on  ICLASS)  is  subsequently  used  in  program 
ALOC  to  impose  user-restrictions  on  the  allocation  of  weapons 
(see  Program  ALOC,  User- Input  Parameters,  FLAGREST  Function  -- 
Restriction  of  Weapons  Using  FLAG  Attribute  in  chapter  3  of 
User’s  Manual  Volume  II). 

11.  Targets  may  be  deleted  from  the  game  base  on  the  basis  of  TASK 
or  M1NIG1W  (user-specified  parameter  which  establishes  the 
minimum  index  of  general  industrial  worth  to  be  considered) . 

12.  The  appropriate  value  of  the  attribute  DBL  (probability  of  des¬ 
truction  before  launch)  is  chosen. 

Subroutine  DBMOD  is  illustrated  in  figure  101. 
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This  is  one  of  three  volumes  describing  the  computer  programming  rpoci f ications  for 
the  Quick-Reacting  General  War  Coming  System  (QUICK).  This  volume  addresses  computer 
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Based  upc-n  suitable  data  base  and  user  control  parameters,  QUICK  wtll  generate 
Individual  bomber  and  missile  plar.3  suitable  fer  war  gaming,  arc!  simulate  the  (denned 
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postures  and  strategies  con  be  accommodated. 
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